|
1100
|
Is it is possible to exclude the non-working days when displaying the histogram using the exBarEffort for exHistOverAllocation type
local var_Bar,var_Bar1,var_Bar2 as IBar
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 40
var_Chart:FirstVisibleDate := SToD("20050620")
var_Chart:HistogramVisible := true
var_Chart:HistogramHeight := 64
var_Chart:HistogramView := exHistogramAllItems
var_Bar := var_Chart:Bars:[Item,"Split"]
var_Bar:Pattern := exPatternBDiagonal
var_Bar:Shape := exShapeThinUp
var_Bar:Color := RGB(0,0,128)
var_Bar1 := var_Chart:Bars:Add("Task:Split")
var_Bar1:Color := RGB(0,0,128)
var_Bar1:Shortcut := "WorkingTask"
var_Bar1:Pattern := exPatternBDiagonal
var_Bar1:HistogramPattern := exPatternBDiagonal
var_Bar1:HistogramType := exHistOverAllocation
var_Bar2 := var_Chart:Bars:[Item,"Task"]
var_Bar2:Color := RGB(0,0,255)
var_Bar2:Pattern := exPatternFDiagonal
var_Bar2:HistogramType := exHistOverAllocation
var_Bar2:HistogramPattern := exPatternFDiagonal
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("True")
var_Items:AddBar(h,"WorkingTask",SToD("20050623"),SToD("20050629"),nil,nil)
var_Items:[ItemBar,h,"",exBarEffort] := 4
var_Items:[ItemBar,h,"",exBarKeepWorkingCount] := true
h := var_Items:AddItem("False")
var_Items:AddBar(h,"Task",SToD("20050623"),SToD("20050629"),nil,nil)
var_Items:[ItemBar,h,"",exBarEffort] := 4
var_Items:[ItemBar,h,"",exBarKeepWorkingCount] := false
oDCOCX_Exontrol1:EndUpdate()
|
|
1099
|
I display numbers in my chart, but the AddBar requires a date how can I add a bar
local var_Chart as IChart
local var_Items as IItems
local var_Level as ILevel
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 0
var_Chart:NonworkingDays := 0
var_Chart:FirstVisibleDate := 0
var_Chart:ToolTip := ""
var_Level := var_Chart:[Level,0]
var_Level:Label := "<%i%>"
var_Level:ToolTip := ""
var_Chart:UnitWidth := 24
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",2,4,nil,nil)
var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",6,10,nil,nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
1098
|
I display numbers in the chart's header but do not want to get displayed negative numbers. How can i do that
METHOD OCX_Exontrol1DateChange() CLASS MainDialog
// DateChange event - Occurs when the first visible date is changed.
oDCOCX_Exontrol1:Chart:FirstVisibleDate := 0
oDCOCX_Exontrol1:[ScrollPartEnable,exHChartScroll,exLeftBPart] := false
RETURN NIL
local var_Chart as IChart
local var_Level as ILevel
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 0
var_Chart:NonworkingDays := 0
var_Chart:FirstVisibleDate := 0
var_Chart:ToolTip := ""
var_Level := var_Chart:[Level,0]
var_Level:Label := "<%i%>"
var_Level:ToolTip := "<%i%>"
var_Chart:UnitWidth := 24
oDCOCX_Exontrol1:EndUpdate()
|
|
1097
|
How can I display numbers in the chart's header instead dates
local var_Chart as IChart
local var_Level as ILevel
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 0
var_Chart:NonworkingDays := 0
var_Chart:FirstVisibleDate := 0
var_Chart:ToolTip := ""
var_Level := var_Chart:[Level,0]
var_Level:Label := "<%i%>"
var_Level:ToolTip := ""
var_Chart:UnitWidth := 24
oDCOCX_Exontrol1:EndUpdate()
|
|
1096
|
How can I create a bar that's not sizable, or can not be resized by default similar with milestone
local var_Bar as IBar
local var_Chart as IChart
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 0
var_Chart:FirstVisibleDate := SToD("20001224")
var_Chart:LevelCount := 2
var_Bar := var_Chart:Bars:Add("Custom")
var_Bar:Shape := exShapeEmpty
var_Bar:StartShape := exShapeIconUp1
var_Bar:EndShape := exShapeIconEmpty
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem(""),"Custom",SToD("20010102"),SToD("20010102"),"K1","This TYPE of bar can not be resized.")
oDCOCX_Exontrol1:EndUpdate()
|
|
1095
|
Is it possible to hide the non-working parts for items using the ItemNonworkingUnits, even if set the ShowNonworkingUnits, ShowNonworkingDates on False
local var_Chart as IChart
local var_Items as IItems
local h1,h2,h3 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:Bars:Add("Task:Split"):Shortcut := "Task"
var_Chart:FirstVisibleDate := SToD("20001227")
var_Chart:[PaneWidth,false] := 64
var_Chart:LevelCount := 2
var_Chart:ShowNonworkingUnits := false
var_Chart:ShowNonworkingDates := false
var_Chart:NonworkingDaysPattern := exPatternEmpty
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("Task 1")
var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
h2 := var_Items:AddItem("Task 2")
var_Items:[ItemNonworkingUnits,h2,false] := "weekday(value) = 1"
var_Items:AddBar(h2,"Task",SToD("20010104"),SToD("20010106"),"K2",nil)
var_Items:AddLink("L1",h1,"K1",h2,"K2")
h3 := var_Items:AddItem("Task 3")
var_Items:AddBar(h3,"Task",SToD("20010108"),SToD("20010110"),"K3",nil)
var_Items:AddLink("L2",h2,"K2",h3,"K3")
oDCOCX_Exontrol1:EndUpdate()
|
|
1094
|
Is it possible to show the non-working parts for certain items, even if I hide the default non-working part
local var_Chart as IChart
local var_Items as IItems
local h1,h2,h3 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:Bars:Add("Task:Split"):Shortcut := "Task"
var_Chart:FirstVisibleDate := SToD("20001227")
var_Chart:[PaneWidth,false] := 64
var_Chart:LevelCount := 2
var_Chart:ShowNonworkingUnits := false
var_Chart:ShowNonworkingDates := false
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("Task 1")
var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
h2 := var_Items:AddItem("Task 2")
var_Items:[ItemNonworkingUnits,h2,false] := "weekday(value) = 1"
var_Items:AddBar(h2,"Task",SToD("20010104"),SToD("20010106"),"K2",nil)
var_Items:AddLink("L1",h1,"K1",h2,"K2")
h3 := var_Items:AddItem("Task 3")
var_Items:AddBar(h3,"Task",SToD("20010108"),SToD("20010110"),"K3",nil)
var_Items:AddLink("L2",h2,"K2",h3,"K3")
oDCOCX_Exontrol1:EndUpdate()
|
|
1093
|
How can I hide the non-working part of the chart
local var_Chart as IChart
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20080101")
var_Chart:[PaneWidth,false] := 0
var_Chart:LevelCount := 2
var_Chart:ShowNonworkingUnits := false
var_Chart:ShowNonworkingDates := false
oDCOCX_Exontrol1:EndUpdate()
|
|
1092
|
Is it possible to let users selects cells as in Excel
local var_Column,var_Column1,var_Column2 as IColumn
local var_Columns as IColumns
local var_Items as IItems
local h,h1 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:FullRowSelect := exRectSel
oDCOCX_Exontrol1:SingleSel := false
oDCOCX_Exontrol1:ReadOnly := exReadOnly
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:ShowFocusRect := false
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:SelForeColor := RGB(0,0,0)
oDCOCX_Exontrol1:SelBackColor := RGB(200,225,242)
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("A")
var_Column := IColumn{var_Columns:Add("B")}
var_Column:AllowSizing := false
var_Column:Width := 24
var_Column1 := IColumn{var_Columns:Add("C")}
var_Column1:AllowSizing := false
var_Column1:Width := 24
var_Column1:[Def,exCellHasCheckBox] := 1
var_Column1:PartialCheck := true
var_Column2 := IColumn{var_Columns:Add("D")}
var_Column2:AllowSizing := false
var_Column2:Width := 24
var_Column2:[Def,exCellHasRadioButton] := 1
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:InsertItem(nil,nil,"Group 1")
h1 := var_Items:InsertItem(h,nil,16)
var_Items:[CellValue,h1,1] := 17
h1 := var_Items:InsertItem(h,nil,2)
var_Items:[CellValue,h1,1] := 11
h1 := var_Items:InsertItem(h,nil,2)
var_Items:[ItemBackColor,h1] := RGB(240,240,240)
var_Items:[CellValue,h1,1] := 9
var_Items:[ExpandItem,h] := true
h := var_Items:InsertItem(nil,nil,"Group 2")
var_Items:[CellValueFormat,h,2] := exHTML
h1 := var_Items:InsertItem(h,nil,16)
var_Items:[CellValue,h1,1] := 9
h1 := var_Items:InsertItem(h,nil,12)
var_Items:[CellValue,h1,1] := 11
h1 := var_Items:InsertItem(h,nil,2)
var_Items:[CellValue,h1,1] := 2
var_Items:[ExpandItem,h] := true
var_Items:[SelectItem,h] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
1091
|
How can I hide a date from the chart view
local var_Chart as IChart
local var_InsideZooms as IInsideZooms
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20080101")
var_Chart:[PaneWidth,false] := 0
var_Chart:LevelCount := 2
var_Chart:AllowInsideZoom := true
var_Chart:AllowResizeInsideZoom := false
var_Chart:InsideZoomOnDblClick := false
var_InsideZooms := var_Chart:InsideZooms
var_InsideZooms:SplitBaseLevel := false
var_InsideZooms:DefaultWidth := 0
var_InsideZooms:Add(SToD("20080104"))
var_InsideZooms:Add(SToD("20080105"))
var_InsideZooms:Add(SToD("20080106"))
var_Chart:SelectLevel := 1
var_Chart:[SelectDate,SToD("20080105")] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
1090
|
Can the SchedulePDM displays and edit the working units for my bars
METHOD OCX_Exontrol1BarResizing(Item,Key) CLASS MainDialog
// BarResizing event - Occurs when a bar is moving or resizing.
oDCOCX_Exontrol1:Items:SchedulePDM(Item,Key)
RETURN NIL
local var_Chart as IChart
local var_Column as IColumn
local var_Items as IItems
local h1,h2,h3,h4 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Items:AllowCellValueToItemBar := true
oDCOCX_Exontrol1:Columns:Add("Task")
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Working")}
var_Column:[Def,exCellValueToItemBarProperty] := 258
var_Column:Editor:EditType := SpinType
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:Bars:Add("Task:Split"):Shortcut := "Task"
var_Chart:FirstVisibleDate := SToD("20001228")
var_Chart:[PaneWidth,false] := 96
var_Chart:AllowLinkBars := false
var_Chart:AllowCreateBar := exNoCreateBar
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("Task 1")
var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"",nil)
h2 := var_Items:AddItem("Task 2")
var_Items:AddBar(h2,"Task",SToD("20010102"),SToD("20010104"),"",nil)
var_Items:AddLink("L1",h1,"",h2,"")
h3 := var_Items:AddItem("Task 3")
var_Items:AddBar(h3,"Task",SToD("20010102"),SToD("20010106"),"",nil)
var_Items:AddLink("L2",h2,"",h3,"")
var_Items:[Link,"L2",exLinkText] := "FF"
var_Items:[Link,"L2",exLinkStartPos] := 2
var_Items:[Link,"L2",exLinkEndPos] := 2
h4 := var_Items:AddItem("Task 4")
var_Items:AddBar(h4,"Task",SToD("20010102"),SToD("20010104"),"",nil)
var_Items:AddLink("L3",h4,"",h3,"")
var_Items:[ItemBar,0,"<*>",exBarKeepWorkingCount] := true
var_Items:SchedulePDM(var_Items:FirstVisibleItem,"")
oDCOCX_Exontrol1:EndUpdate()
|
|
1089
|
Can the SchedulePDM displays the working units for my bars
METHOD OCX_Exontrol1BarResizing(Item,Key) CLASS MainDialog
// BarResizing event - Occurs when a bar is moving or resizing.
oDCOCX_Exontrol1:Items:SchedulePDM(Item,Key)
RETURN NIL
local var_Chart as IChart
local var_Items as IItems
local h1,h2,h3,h4 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Items:AllowCellValueToItemBar := true
oDCOCX_Exontrol1:Columns:Add("Task")
IColumn{oDCOCX_Exontrol1:Columns:Add("Working")}:[Def,exCellValueToItemBarProperty] := 258
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:Bars:Add("Task:Split"):Shortcut := "Task"
var_Chart:FirstVisibleDate := SToD("20001228")
var_Chart:[PaneWidth,false] := 96
var_Chart:AllowLinkBars := false
var_Chart:AllowCreateBar := exNoCreateBar
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("Task 1")
var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"",nil)
h2 := var_Items:AddItem("Task 2")
var_Items:AddBar(h2,"Task",SToD("20010102"),SToD("20010104"),"",nil)
var_Items:AddLink("L1",h1,"",h2,"")
h3 := var_Items:AddItem("Task 3")
var_Items:AddBar(h3,"Task",SToD("20010102"),SToD("20010106"),"",nil)
var_Items:AddLink("L2",h2,"",h3,"")
var_Items:[Link,"L2",exLinkText] := "FF"
var_Items:[Link,"L2",exLinkStartPos] := 2
var_Items:[Link,"L2",exLinkEndPos] := 2
h4 := var_Items:AddItem("Task 4")
var_Items:AddBar(h4,"Task",SToD("20010102"),SToD("20010104"),"",nil)
var_Items:AddLink("L3",h4,"",h3,"")
var_Items:[ItemBar,0,"<*>",exBarKeepWorkingCount] := true
var_Items:SchedulePDM(var_Items:FirstVisibleItem,"")
oDCOCX_Exontrol1:EndUpdate()
|
|
1088
|
Can the SchedulePDM keeps the working units for my bars
METHOD OCX_Exontrol1BarResizing(Item,Key) CLASS MainDialog
// BarResizing event - Occurs when a bar is moving or resizing.
oDCOCX_Exontrol1:Items:SchedulePDM(Item,Key)
RETURN NIL
local var_Chart as IChart
local var_Items as IItems
local h1,h2,h3,h4 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:Bars:Add("Task:Split"):Shortcut := "Task"
var_Chart:FirstVisibleDate := SToD("20001228")
var_Chart:[PaneWidth,false] := 48
var_Chart:AllowLinkBars := false
var_Chart:AllowCreateBar := exNoCreateBar
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("Task 1")
var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
h2 := var_Items:AddItem("Task 2")
var_Items:AddBar(h2,"Task",SToD("20010102"),SToD("20010104"),"K2",nil)
var_Items:AddLink("L1",h1,"K1",h2,"K2")
h3 := var_Items:AddItem("Task 3")
var_Items:AddBar(h3,"Task",SToD("20010102"),SToD("20010106"),"K3",nil)
var_Items:AddLink("L2",h2,"K2",h3,"K3")
var_Items:[Link,"L2",exLinkText] := "FF"
var_Items:[Link,"L2",exLinkStartPos] := 2
var_Items:[Link,"L2",exLinkEndPos] := 2
h4 := var_Items:AddItem("Task 4")
var_Items:AddBar(h4,"Task",SToD("20010102"),SToD("20010104"),"K4",nil)
var_Items:AddLink("L3",h4,"K4",h3,"K3")
var_Items:[ItemBar,0,"<*>",exBarKeepWorkingCount] := true
var_Items:SchedulePDM(0,"K1")
oDCOCX_Exontrol1:EndUpdate()
|
|
1087
|
How can I arrange automatically the bars based on their links as soon as user moves the bars
METHOD OCX_Exontrol1BarResizing(Item,Key) CLASS MainDialog
// BarResizing event - Occurs when a bar is moving or resizing.
oDCOCX_Exontrol1:Items:SchedulePDM(Item,Key)
RETURN NIL
local var_Chart as IChart
local var_Items as IItems
local h1,h2,h3,h4 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20001228")
var_Chart:[PaneWidth,false] := 48
var_Chart:AllowLinkBars := false
var_Chart:AllowCreateBar := exNoCreateBar
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("Task 1")
var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
h2 := var_Items:AddItem("Task 2")
var_Items:AddBar(h2,"Task",SToD("20010102"),SToD("20010104"),"K2",nil)
var_Items:AddLink("L1",h1,"K1",h2,"K2")
h3 := var_Items:AddItem("Task 3")
var_Items:AddBar(h3,"Task",SToD("20010102"),SToD("20010106"),"K3",nil)
var_Items:AddLink("L2",h2,"K2",h3,"K3")
var_Items:[Link,"L2",exLinkText] := "FF"
var_Items:[Link,"L2",exLinkStartPos] := 2
var_Items:[Link,"L2",exLinkEndPos] := 2
h4 := var_Items:AddItem("Task 4")
var_Items:AddBar(h4,"Task",SToD("20010102"),SToD("20010104"),"K4",nil)
var_Items:AddLink("L3",h4,"K4",h3,"K3")
var_Items:SchedulePDM(0,"K1")
oDCOCX_Exontrol1:EndUpdate()
|
|
1086
|
How can I arrange automatically the bars based on their links as soon as user moves the bars
METHOD OCX_Exontrol1BarResize(Item,Key) CLASS MainDialog
// BarResize event - Occurs when a bar is moved or resized.
oDCOCX_Exontrol1:Items:SchedulePDM(Item,Key)
RETURN NIL
local var_Chart as IChart
local var_Items as IItems
local h1,h2,h3 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:[PaneWidth,false] := 48
var_Chart:AllowLinkBars := false
var_Chart:AllowCreateBar := exNoCreateBar
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("Task 1")
var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
h2 := var_Items:AddItem("Task 2")
var_Items:AddBar(h2,"Task",SToD("20010102"),SToD("20010104"),"K2",nil)
var_Items:AddLink("L1",h1,"K1",h2,"K2")
h3 := var_Items:AddItem("Task 3")
var_Items:AddBar(h3,"Task",SToD("20010102"),SToD("20010104"),"K3",nil)
var_Items:AddLink("L2",h2,"K2",h3,"K3")
var_Items:SchedulePDM(0,"K1")
oDCOCX_Exontrol1:EndUpdate()
|
|
1085
|
I have some buttons added on the control's scroll bar, how can I can know when the button is being clicked
METHOD OCX_Exontrol1ScrollButtonClick(ScrollBar,ScrollPart) CLASS MainDialog
// ScrollButtonClick event - Occurs when the user clicks a button in the scrollbar.
OutputDebugString(String2Psz( AsString(ScrollBar) ))
OutputDebugString(String2Psz( AsString(ScrollPart) ))
RETURN NIL
oDCOCX_Exontrol1:[ScrollPartVisible,exHScroll,exLeftB1Part] := true
oDCOCX_Exontrol1:[ScrollPartVisible,exHScroll,exLeftB2Part] := true
oDCOCX_Exontrol1:[ScrollPartVisible,exHScroll,exRightB6Part] := true
oDCOCX_Exontrol1:[ScrollPartVisible,exHScroll,exRightB5Part] := true
oDCOCX_Exontrol1:ScrollBars := exDisableNoHorizontal
|
|
1084
|
How do I get notified once the user clicks a hyperlink created using the anchor HTML tag
METHOD OCX_Exontrol1AnchorClick(AnchorID,Options) CLASS MainDialog
// AnchorClick event - Occurs when an anchor element is clicked.
OutputDebugString(String2Psz( AsString(AnchorID) ))
OutputDebugString(String2Psz( AsString(Options) ))
RETURN NIL
local var_Items as IItems
IColumn{oDCOCX_Exontrol1:Columns:Add("Default")}:[Def,exCellValueFormat] := 1
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("This is a link: <aex.com;1>www.exontrol.com</a>")
var_Items:AddItem("This is a link: <aex.net;2>www.exontrol.net</a>")
|
|
1083
|
Is it possible to start editing a cell when double click it
METHOD OCX_Exontrol1DblClick(Shift,X,Y) CLASS MainDialog
// DblClick event - Occurs when the user dblclk the left mouse button over an object.
oDCOCX_Exontrol1:Edit(nil)
RETURN NIL
local var_Items,var_Items1 as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:AutoEdit := false
oDCOCX_Exontrol1:MarkSearchColumn := false
IColumn{oDCOCX_Exontrol1:Columns:Add("Edit1")}:Editor:EditType := EditType
IColumn{oDCOCX_Exontrol1:Columns:Add("Edit2")}:Editor:EditType := EditType
var_Items := oDCOCX_Exontrol1:Items
var_Items:[CellValue,var_Items:AddItem(1),1] := 2
var_Items1 := oDCOCX_Exontrol1:Items
var_Items1:[CellValue,var_Items1:AddItem(3),1] := 4
oDCOCX_Exontrol1:EndUpdate()
|
|
1082
|
Is it possible to disable standard single-click behavior for this column, so I manually could call Edit() when needed
METHOD OCX_Exontrol1DblClick(Shift,X,Y) CLASS MainDialog
// DblClick event - Occurs when the user dblclk the left mouse button over an object.
oDCOCX_Exontrol1:Edit(nil)
RETURN NIL
local var_Items,var_Items1 as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:AutoEdit := false
oDCOCX_Exontrol1:MarkSearchColumn := false
IColumn{oDCOCX_Exontrol1:Columns:Add("Edit1")}:Editor:EditType := EditType
IColumn{oDCOCX_Exontrol1:Columns:Add("Edit2")}:Editor:EditType := EditType
var_Items := oDCOCX_Exontrol1:Items
var_Items:[CellValue,var_Items:AddItem(1),1] := 2
var_Items1 := oDCOCX_Exontrol1:Items
var_Items1:[CellValue,var_Items1:AddItem(3),1] := 4
oDCOCX_Exontrol1:EndUpdate()
|
|
1081
|
How can I get or restore the old or previously value for the cell being changed
METHOD OCX_Exontrol1Change(Item,ColIndex,NewValue) CLASS MainDialog
// Change event - Occurs when the user changes the cell's content.
OutputDebugString(String2Psz( "Old-Value:" ))
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:Items:[CellValue,Item,ColIndex]) ))
OutputDebugString(String2Psz( "New-Value:" ))
OutputDebugString(String2Psz( AsString(NewValue) ))
RETURN NIL
local var_Items,var_Items1 as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:MarkSearchColumn := false
IColumn{oDCOCX_Exontrol1:Columns:Add("Edit1")}:Editor:EditType := EditType
IColumn{oDCOCX_Exontrol1:Columns:Add("Edit2")}:Editor:EditType := EditType
var_Items := oDCOCX_Exontrol1:Items
var_Items:[CellValue,var_Items:AddItem(1),1] := 2
var_Items1 := oDCOCX_Exontrol1:Items
var_Items1:[CellValue,var_Items1:AddItem(3),1] := 4
oDCOCX_Exontrol1:EndUpdate()
|
|
1080
|
How can I display the number of items being found after filtering
METHOD OCX_Exontrol1FilterChange() CLASS MainDialog
// FilterChange event - Occurs when the filter was changed.
oDCOCX_Exontrol1:FilterBarCaption := AsString(oDCOCX_Exontrol1:Items:VisibleCount)
RETURN NIL
local var_Columns as IColumns
local var_Items as IItems
local h0 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
oDCOCX_Exontrol1:ColumnAutoResize := true
oDCOCX_Exontrol1:ContinueColumnScroll := false
oDCOCX_Exontrol1:FocusColumnIndex := 1
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:SearchColumnIndex := 1
oDCOCX_Exontrol1:FilterBarPromptVisible := true
oDCOCX_Exontrol1:FilterBarPromptType := exFilterPromptContainsAll
oDCOCX_Exontrol1:FilterBarPromptPattern := "london"
var_Columns := oDCOCX_Exontrol1:Columns
IColumn{var_Columns:Add("Name")}:Width := 96
IColumn{var_Columns:Add("Title")}:Width := 96
var_Columns:Add("City")
var_Items := oDCOCX_Exontrol1:Items
h0 := var_Items:AddItem("Nancy Davolio")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "Seattle"
h0 := var_Items:AddItem("Andrew Fuller")
var_Items:[CellValue,h0,1] := "Vice President, Sales"
var_Items:[CellValue,h0,2] := "Tacoma"
var_Items:[SelectItem,h0] := true
h0 := var_Items:AddItem("Janet Leverling")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "Kirkland"
h0 := var_Items:AddItem("Margaret Peacock")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "Redmond"
h0 := var_Items:AddItem("Steven Buchanan")
var_Items:[CellValue,h0,1] := "Sales Manager"
var_Items:[CellValue,h0,2] := "London"
h0 := var_Items:AddItem("Michael Suyama")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "London"
h0 := var_Items:AddItem("Robert King")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "London"
h0 := var_Items:AddItem("Laura Callahan")
var_Items:[CellValue,h0,1] := "Inside Sales Coordinator"
var_Items:[CellValue,h0,2] := "Seattle"
h0 := var_Items:AddItem("Anne Dodsworth")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "London"
oDCOCX_Exontrol1:EndUpdate()
|
|
1079
|
How can I highligth the item from the cursor as it moves
METHOD OCX_Exontrol1MouseMove(Button,Shift,X,Y) CLASS MainDialog
// MouseMove event - Occurs when the user moves the mouse.
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
h := oDCOCX_Exontrol1:[ItemFromPoint,-1,-1,c,hit]
var_Items := oDCOCX_Exontrol1:Items
var_Items:ClearItemBackColor(oDCOCX_Exontrol1:[Background,0x200 | exHSRight | exListOLEDropPosition])
var_Items:[ItemBackColor,h] := RGB(240,250,240)
oDCOCX_Exontrol1:[Background,0x200 | exHSRight | exListOLEDropPosition] := h
oDCOCX_Exontrol1:EndUpdate()
RETURN NIL
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:DrawGridLines := exHLines
oDCOCX_Exontrol1:SelBackColor := RGB(240,250,240)
oDCOCX_Exontrol1:SelForeColor := RGB(0,0,0)
oDCOCX_Exontrol1:ShowFocusRect := false
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:SelBackColor := RGB(240,250,240)
oDCOCX_Exontrol1:Columns:Add("Items")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("R1")
var_Items:InsertItem(h,nil,"Cell 1.1")
var_Items:InsertItem(h,nil,"Cell 1.2")
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("R2")
var_Items:InsertItem(h,nil,"Cell 2.1")
var_Items:InsertItem(h,nil,"Cell 2.2")
var_Items:[ExpandItem,h] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
1078
|
How can I get the item from the cursor
METHOD OCX_Exontrol1MouseMove(Button,Shift,X,Y) CLASS MainDialog
// MouseMove event - Occurs when the user moves the mouse.
local h as USUAL
h := oDCOCX_Exontrol1:[ItemFromPoint,-1,-1,c,hit]
OutputDebugString(String2Psz( "Handle" ))
OutputDebugString(String2Psz( AsString(h) ))
OutputDebugString(String2Psz( "Index" ))
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:Items:[ItemToIndex,h]) ))
RETURN NIL
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:DrawGridLines := exHLines
oDCOCX_Exontrol1:Columns:Add("Items")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("R1")
var_Items:InsertItem(h,nil,"Cell 1.1")
var_Items:InsertItem(h,nil,"Cell 1.2")
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("R2")
var_Items:InsertItem(h,nil,"Cell 2.1")
var_Items:InsertItem(h,nil,"Cell 2.2")
var_Items:[ExpandItem,h] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
1077
|
How can I get the column from the cursor, not only in the header
METHOD OCX_Exontrol1MouseMove(Button,Shift,X,Y) CLASS MainDialog
// MouseMove event - Occurs when the user moves the mouse.
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:[ColumnFromPoint,-1,0]) ))
RETURN NIL
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:Columns:Add("P1")
oDCOCX_Exontrol1:Columns:Add("P2")
oDCOCX_Exontrol1:DrawGridLines := exAllLines
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("R1")
var_Items:[CellValue,h,1] := "R2"
var_Items:[CellValue,var_Items:InsertItem(h,nil,"Cell 1.1"),1] := "Cell 1.2"
var_Items:[CellValue,var_Items:InsertItem(h,nil,"Cell 2.1"),1] := "Cell 2.2"
var_Items:[ExpandItem,h] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
1076
|
How can I get the column from the cursor
METHOD OCX_Exontrol1MouseMove(Button,Shift,X,Y) CLASS MainDialog
// MouseMove event - Occurs when the user moves the mouse.
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:[ColumnFromPoint,-1,-1]) ))
RETURN NIL
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:DrawGridLines := exAllLines
oDCOCX_Exontrol1:Columns:Add("P1")
oDCOCX_Exontrol1:Columns:Add("P2")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("R1")
var_Items:[CellValue,h,1] := "R2"
var_Items:[CellValue,var_Items:InsertItem(h,nil,"Cell 1.1"),1] := "Cell 1.2"
var_Items:[CellValue,var_Items:InsertItem(h,nil,"Cell 2.1"),1] := "Cell 2.2"
var_Items:[ExpandItem,h] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
1075
|
How can I get the cell's caption from the cursor
METHOD OCX_Exontrol1MouseMove(Button,Shift,X,Y) CLASS MainDialog
// MouseMove event - Occurs when the user moves the mouse.
local h as USUAL
h := oDCOCX_Exontrol1:[ItemFromPoint,-1,-1,c,hit]
OutputDebugString(String2Psz( oDCOCX_Exontrol1:Items:[CellCaption,h,c] ))
RETURN NIL
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:Columns:Add("Items")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("R1")
var_Items:InsertItem(h,nil,"Cell 1.1")
var_Items:InsertItem(h,nil,"Cell 1.2")
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("R2")
var_Items:InsertItem(h,nil,"Cell 2.1")
var_Items:InsertItem(h,nil,"Cell 2.2")
var_Items:[ExpandItem,h] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
1074
|
Is it possible to change the style for the vertical or horizontal grid lines, in the list area
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DrawGridLines := exAllLines
oDCOCX_Exontrol1:GridLineStyle := exGridLinesVSolid | exGridLinesHDot4
oDCOCX_Exontrol1:Columns:Add("C1")
oDCOCX_Exontrol1:Columns:Add("C2")
oDCOCX_Exontrol1:Columns:Add("C3")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Item 1")
var_Items:[CellValue,h,1] := "SubItem 1.2"
var_Items:[CellValue,h,2] := "SubItem 1.3"
h := var_Items:AddItem("Item 2")
var_Items:[CellValue,h,1] := "SubItem 2.2"
var_Items:[CellValue,h,2] := "SubItem 2.3"
oDCOCX_Exontrol1:EndUpdate()
|
|
1073
|
How can I show the bars over the grid lines, i.e. so you cannot see the grid lines 'through' the bar
local var_Bar as IBar
local var_Chart as IChart
local var_Items as IItems
local var_Level as ILevel
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DrawGridLines := exAllLines
oDCOCX_Exontrol1:GridLineColor := RGB(220,220,220)
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 48
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:DrawGridLines := exAllLines
var_Chart:GridLineStyle := exGridLinesBehind
var_Chart:LevelCount := 2
var_Level := var_Chart:[Level,1]
var_Level:DrawGridLines := true
var_Level:GridLineColor := RGB(220,220,220)
var_Bar := var_Chart:Bars:[Item,"Task"]
var_Bar:Pattern := exPatternSolid
var_Bar:Height := 14
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Item 1")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010105"),"A",nil)
var_Items:AddBar(h,"Task",SToD("20010108"),SToD("20010115"),"B",nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
1072
|
Is it possible to change the style for the vertical grid lines, in the chart area only
local var_Chart as IChart
local var_Items as IItems
local var_Level as ILevel
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DrawGridLines := exAllLines
oDCOCX_Exontrol1:GridLineStyle := exGridLinesDash
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 48
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:DrawGridLines := exAllLines
var_Chart:GridLineStyle := exGridLinesDash
var_Chart:LevelCount := 2
var_Chart:[Level,1]:DrawGridLines := true
var_Level := var_Chart:[Level,0]
var_Level:GridLineColor := RGB(255,0,0)
var_Level:GridLineStyle := exGridLinesVSolid
var_Chart:Bars:[Item,"Task"]:Pattern := exPatternSolid
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Item 1")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010105"),"A",nil)
var_Items:AddBar(h,"Task",SToD("20010108"),SToD("20010115"),"B",nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
1071
|
Is it possible to change the style for the grid lines, for instance to be solid not dotted
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DrawGridLines := exAllLines
oDCOCX_Exontrol1:GridLineStyle := exGridLinesSolid
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 48
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:DrawGridLines := exAllLines
var_Chart:GridLineStyle := exGridLinesSolid
var_Chart:LevelCount := 2
var_Chart:[Level,1]:DrawGridLines := true
var_Chart:Bars:[Item,"Task"]:Pattern := exPatternSolid
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Item 1")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010105"),"A",nil)
var_Items:AddBar(h,"Task",SToD("20010108"),SToD("20010115"),"B",nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
1070
|
How can I show the grid lines for the chart and list area
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:DrawGridLines := exAllLines
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 48
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:DrawGridLines := exAllLines
var_Chart:LevelCount := 2
var_Chart:[Level,1]:DrawGridLines := true
var_Chart:Bars:[Item,"Task"]:Pattern := exPatternSolid
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Item 1")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010105"),"A",nil)
var_Items:AddBar(h,"Task",SToD("20010108"),SToD("20010115"),"B",nil)
|
|
1069
|
In the level of the chart we are showing the week number of the year (1-53) (Week: ww). However the weeknumber isn't correct. In western Europe the week of 04/01/2010 till 10/01/2010 is weeknumber 1, however the g2antt says it's week 2
local var_Chart as IChart
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 0
var_Chart:FirstVisibleDate := SToD("20091228")
var_Chart:LevelCount := 2
var_Chart:[Level,0]:Label := "Week: <%ww%>/<%yyyy%>"
var_Chart:FirstWeekDay := exMonday
|
|
1068
|
How can I determine the current visible date range of the gantt chart area
local var_Chart as IChart
local var_Items as IItems
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:[PaneWidth,false] := 48
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20010102"),SToD("20010106"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20010103"),SToD("20010107"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Task 3"),"Task",SToD("20010104"),SToD("20010108"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Task 4"),"Task",SToD("20010106"),SToD("20010110"),nil,nil)
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:Chart:StartPrintDate) ))
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:Chart:EndPrintDate) ))
|
|
1067
|
How can I change the progress bar using a spin editor using values from 0 to 100
local var_Chart as IChart
local var_Column as IColumn
local var_Columns as IColumns
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Items:AllowCellValueToItemBar := true
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("Task")
var_Column := IColumn{var_Columns:Add("Percent")}
var_Column:Editor:EditType := SpinType
var_Column:[Def,exCellValueToItemBarProperty] := 518
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:Bars:Add("Task%Progress")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Task 1")
var_Items:AddBar(h,"Task%Progress",SToD("20010102"),SToD("20010106"),nil,nil)
var_Items:[CellValue,h,1] := 40
h := var_Items:AddItem("Task 2")
var_Items:AddBar(h,"Task%Progress",SToD("20010102"),SToD("20010106"),nil,nil)
var_Items:[CellValue,h,1] := 50
oDCOCX_Exontrol1:EndUpdate()
|
|
1066
|
Is it possible to display the histogram for selected bars only
local var_Chart as IChart
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 64
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:HistogramVisible := true
var_Chart:HistogramView := exHistogramSelectedBars
var_Chart:HistogramHeight := 32
var_Chart:Bars:[Item,"Task"]:HistogramPattern := exPatternBDiagonal
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Item 1"),"Task",SToD("20010103"),SToD("20010105"),1,nil)
var_Items:AddBar(var_Items:AddItem("Item 2"),"Task",SToD("20010104"),SToD("20010107"),2,nil)
var_Items:AddBar(var_Items:AddItem("Item 3"),"Task",SToD("20010102"),SToD("20010106"),3,nil)
var_Items:[ItemBar,0,2,exBarSelected] := true
var_Items:[ItemBar,0,3,exBarSelected] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
1065
|
How can I fix a bar, so it is not selectable, moveable or resizable, fixed in other words
local var_Chart as IChart
local var_Items as IItems
local h1 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:[PaneWidth,false] := 48
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("Task 1")
var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010108"),"K1","Unselectable")
var_Items:[ItemBar,h1,"K1",exBarSelectable] := false
oDCOCX_Exontrol1:EndUpdate()
|
|
1064
|
How can I fix a bar, so it is not moveable or resizable
local var_Chart as IChart
local var_Items as IItems
local h1 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:[PaneWidth,false] := 48
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("Task 1")
var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"K1","Fixed")
var_Items:[ItemBar,h1,"K1",exBarCanResize] := false
var_Items:[ItemBar,h1,"K1",exBarCanMove] := false
oDCOCX_Exontrol1:EndUpdate()
|
|
1063
|
Is is possible to fix a bar during PDM scheduling
local var_Chart as IChart
local var_Items as IItems
local h1,h2,h3 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:[PaneWidth,false] := 48
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("Task 1")
var_Items:AddBar(h1,"TaskF",SToD("20010102"),SToD("20010104"),"K1",nil)
var_Items:[ItemBar,h1,"K1",exBarCanResize] := false
var_Items:[ItemBar,h1,"K1",exBarCanMove] := false
h2 := var_Items:AddItem("Task 2")
var_Items:AddBar(h2,"Task",SToD("20010102"),SToD("20010104"),"K2",nil)
var_Items:AddLink("L1",h1,"K1",h2,"K2")
h3 := var_Items:AddItem("Task 3")
var_Items:AddBar(h3,"TaskF",SToD("20010102"),SToD("20010104"),"K3",nil)
var_Items:[ItemBar,h3,"K3",exBarCanResize] := false
var_Items:[ItemBar,h3,"K3",exBarCanMove] := false
var_Items:AddLink("L2",h2,"K2",h3,"K3")
var_Items:SchedulePDM(0,"K1")
oDCOCX_Exontrol1:EndUpdate()
|
|
1062
|
How can I specify that during scheduling the link, bars should be delayed, on working part
local var_Chart as IChart
local var_Items as IItems
local h1,h2,h3 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:Bars:Add("Task:Split"):Shortcut := "Task"
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:[PaneWidth,false] := 48
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("Task 1")
var_Items:AddBar(h1,"Task",SToD("20010101"),SToD("20010103"),"K1",nil)
var_Items:[ItemBar,h1,"K1",exBarKeepWorkingCount] := true
h2 := var_Items:AddItem("Task 2")
var_Items:AddBar(h2,"Task",SToD("20010102"),SToD("20010105"),"K2",nil)
var_Items:[ItemBar,h2,"K2",exBarKeepWorkingCount] := true
var_Items:AddLink("L1",h1,"K1",h2,"K2")
var_Items:[Link,"L1",exLinkText] := "FS"
h3 := var_Items:AddItem("Task 3")
var_Items:AddBar(h3,"Task",SToD("20010102"),SToD("20010106"),"K3",nil)
var_Items:[ItemBar,h3,"K3",exBarKeepWorkingCount] := true
var_Items:AddLink("L2",h2,"K2",h3,"K3")
var_Items:[Link,"L2",exLinkText] := "link delays the bars<br>for <b>2</b> working days"
var_Items:[Link,"L2",exLinkPDMWorkingDelay] := 2
var_Items:SchedulePDM(0,"K1")
oDCOCX_Exontrol1:EndUpdate()
|
|
1061
|
How can I specify that during scheduling the link, bars should be delayed
local var_Chart as IChart
local var_Items as IItems
local h1,h2,h3 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:ShowNonworkingDates := false
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:[PaneWidth,false] := 48
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("Task 1")
var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
h2 := var_Items:AddItem("Task 2")
var_Items:AddBar(h2,"Task",SToD("20010102"),SToD("20010105"),"K2",nil)
var_Items:AddLink("L1",h1,"K1",h2,"K2")
var_Items:[Link,"L1",exLinkText] := "FS"
h3 := var_Items:AddItem("Task 3")
var_Items:AddBar(h3,"Task",SToD("20010102"),SToD("20010106"),"K3",nil)
var_Items:AddLink("L2",h2,"K2",h3,"K3")
var_Items:[Link,"L2",exLinkText] := " Finish-Start<br>delayed <b>4</b> days"
var_Items:[Link,"L2",exLinkPDMDelay] := 4
var_Items:SchedulePDM(0,"K1")
oDCOCX_Exontrol1:EndUpdate()
|
|
1060
|
The SchedulePDM method put the bars on non-working part, how can I prevent that
local var_Chart as IChart
local var_Items as IItems
local h1,h2,h3 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:Bars:Add("Task:Split"):Shortcut := "Task"
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:[PaneWidth,false] := 48
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("Task 1")
var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
var_Items:[ItemBar,h1,"K1",exBarKeepWorkingCount] := true
h2 := var_Items:AddItem("Task 2")
var_Items:AddBar(h2,"Task",SToD("20010102"),SToD("20010105"),"K2",nil)
var_Items:[ItemBar,h2,"K2",exBarKeepWorkingCount] := true
var_Items:AddLink("L1",h1,"K1",h2,"K2")
var_Items:[Link,"L1",exLinkText] := "FS"
h3 := var_Items:AddItem("Task 3")
var_Items:AddBar(h3,"Task",SToD("20010102"),SToD("20010106"),"K3",nil)
var_Items:[ItemBar,h3,"K3",exBarKeepWorkingCount] := true
var_Items:AddLink("L2",h2,"K2",h3,"K3")
var_Items:[Link,"L2",exLinkText] := "FS"
var_Items:SchedulePDM(0,"K1")
oDCOCX_Exontrol1:EndUpdate()
|
|
1059
|
How can I add a SF (Start-Finish) link so activities get arranged using the SchedulePDM
local var_Chart as IChart
local var_Items as IItems
local h1,h2,h3 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20001228")
var_Chart:[PaneWidth,false] := 48
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("Task 1")
var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
h2 := var_Items:AddItem("Task 2")
var_Items:AddBar(h2,"Task",SToD("20010102"),SToD("20010105"),"K2",nil)
var_Items:AddLink("L1",h1,"K1",h2,"K2")
var_Items:[Link,"L1",exLinkText] := "FS"
h3 := var_Items:AddItem("Task 3")
var_Items:AddBar(h3,"Task",SToD("20010102"),SToD("20010106"),"K3",nil)
var_Items:AddLink("L2",h2,"K2",h3,"K3")
var_Items:[Link,"L2",exLinkText] := "SF"
var_Items:[Link,"L2",exLinkStartPos] := 0
var_Items:[Link,"L2",exLinkEndPos] := 2
var_Items:SchedulePDM(0,"K1")
oDCOCX_Exontrol1:EndUpdate()
|
|
1058
|
How can I add a SS (Start-Start) link so activities get arranged using the SchedulePDM
local var_Chart as IChart
local var_Items as IItems
local h1,h2,h3 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20001228")
var_Chart:[PaneWidth,false] := 48
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("Task 1")
var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
h2 := var_Items:AddItem("Task 2")
var_Items:AddBar(h2,"Task",SToD("20010102"),SToD("20010105"),"K2",nil)
var_Items:AddLink("L1",h1,"K1",h2,"K2")
var_Items:[Link,"L1",exLinkText] := "FS"
h3 := var_Items:AddItem("Task 3")
var_Items:AddBar(h3,"Task",SToD("20010102"),SToD("20010106"),"K3",nil)
var_Items:AddLink("L2",h2,"K2",h3,"K3")
var_Items:[Link,"L2",exLinkText] := "SS"
var_Items:[Link,"L2",exLinkStartPos] := 0
var_Items:[Link,"L2",exLinkEndPos] := 0
var_Items:SchedulePDM(0,"K1")
oDCOCX_Exontrol1:EndUpdate()
|
|
1057
|
How can I add a FF (Finish-Finish) link so activities get arranged using the SchedulePDM
local var_Chart as IChart
local var_Items as IItems
local h1,h2,h3 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20001228")
var_Chart:[PaneWidth,false] := 48
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("Task 1")
var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
h2 := var_Items:AddItem("Task 2")
var_Items:AddBar(h2,"Task",SToD("20010102"),SToD("20010105"),"K2",nil)
var_Items:AddLink("L1",h1,"K1",h2,"K2")
var_Items:[Link,"L1",exLinkText] := "FS"
h3 := var_Items:AddItem("Task 3")
var_Items:AddBar(h3,"Task",SToD("20010102"),SToD("20010106"),"K3",nil)
var_Items:AddLink("L2",h2,"K2",h3,"K3")
var_Items:[Link,"L2",exLinkText] := "FF"
var_Items:[Link,"L2",exLinkStartPos] := 2
var_Items:[Link,"L2",exLinkEndPos] := 2
var_Items:SchedulePDM(0,"K1")
oDCOCX_Exontrol1:EndUpdate()
|
|
1056
|
How can I add a FS (Finish-Start) link so activities get arranged using the SchedulePDM
local var_Chart as IChart
local var_Items as IItems
local h1,h2,h3 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:[PaneWidth,false] := 48
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("Task 1")
var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
h2 := var_Items:AddItem("Task 2")
var_Items:AddBar(h2,"Task",SToD("20010102"),SToD("20010105"),"K2",nil)
var_Items:AddLink("L1",h1,"K1",h2,"K2")
var_Items:[Link,"L1",exLinkText] := "FS"
h3 := var_Items:AddItem("Task 3")
var_Items:AddBar(h3,"Task",SToD("20010102"),SToD("20010106"),"K3",nil)
var_Items:AddLink("L2",h2,"K2",h3,"K3")
var_Items:[Link,"L2",exLinkText] := "FS"
var_Items:SchedulePDM(0,"K1")
oDCOCX_Exontrol1:EndUpdate()
|
|
1055
|
How can I schedule activities in the project plan
local var_Chart as IChart
local var_Items as IItems
local h1,h2,h3 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:[PaneWidth,false] := 48
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("Task 1")
var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
h2 := var_Items:AddItem("Task 2")
var_Items:AddBar(h2,"Task",SToD("20010102"),SToD("20010104"),"K2",nil)
var_Items:AddLink("L1",h1,"K1",h2,"K2")
h3 := var_Items:AddItem("Task 3")
var_Items:AddBar(h3,"Task",SToD("20010102"),SToD("20010104"),"K3",nil)
var_Items:AddLink("L2",h3,"K3",h2,"K2")
var_Items:SchedulePDM(0,"K1")
oDCOCX_Exontrol1:EndUpdate()
|
|
1054
|
How do I arrange the bars based on the links
local var_Chart as IChart
local var_Items as IItems
local h1,h2,h3 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:[PaneWidth,false] := 48
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("Task 1")
var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
h2 := var_Items:AddItem("Task 2")
var_Items:AddBar(h2,"Task",SToD("20010102"),SToD("20010104"),"K2",nil)
var_Items:AddLink("L1",h1,"K1",h2,"K2")
h3 := var_Items:AddItem("Task 3")
var_Items:AddBar(h3,"Task",SToD("20010102"),SToD("20010104"),"K3",nil)
var_Items:AddLink("L2",h2,"K2",h3,"K3")
var_Items:SchedulePDM(0,"K1")
oDCOCX_Exontrol1:EndUpdate()
|
|
1053
|
Is is possible to use HTML tags to display in the filter caption
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:FilterBarPromptVisible := true
oDCOCX_Exontrol1:FilterBarCaption := "This is a bit of text being displayed in the filter bar."
oDCOCX_Exontrol1:Columns:Add("")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Item 1")
var_Items:AddItem("Item 2")
var_Items:AddItem("Item 3")
oDCOCX_Exontrol1:EndUpdate()
|
|
1052
|
How can I find the number of items after filtering
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("")
var_Items:[CellValue,h,0] := var_Items:VisibleItemCount
oDCOCX_Exontrol1:EndUpdate()
|
|
1051
|
How can I change the filter caption
local var_Columns as IColumns
local var_Items as IItems
local h0 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
oDCOCX_Exontrol1:ColumnAutoResize := true
oDCOCX_Exontrol1:ContinueColumnScroll := false
oDCOCX_Exontrol1:FocusColumnIndex := 1
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:SearchColumnIndex := 1
oDCOCX_Exontrol1:FilterBarPromptVisible := true
oDCOCX_Exontrol1:FilterBarPromptType := exFilterPromptWords | exFilterPromptContainsAll
oDCOCX_Exontrol1:FilterBarPromptPattern := "london robert"
oDCOCX_Exontrol1:FilterBarCaption := "<r>Found: ... "
var_Columns := oDCOCX_Exontrol1:Columns
IColumn{var_Columns:Add("Name")}:Width := 96
IColumn{var_Columns:Add("Title")}:Width := 96
var_Columns:Add("City")
var_Items := oDCOCX_Exontrol1:Items
h0 := var_Items:AddItem("Nancy Davolio")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "Seattle"
h0 := var_Items:AddItem("Andrew Fuller")
var_Items:[CellValue,h0,1] := "Vice President, Sales"
var_Items:[CellValue,h0,2] := "Tacoma"
var_Items:[SelectItem,h0] := true
h0 := var_Items:AddItem("Janet Leverling")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "Kirkland"
h0 := var_Items:AddItem("Margaret Peacock")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "Redmond"
h0 := var_Items:AddItem("Steven Buchanan")
var_Items:[CellValue,h0,1] := "Sales Manager"
var_Items:[CellValue,h0,2] := "London"
h0 := var_Items:AddItem("Michael Suyama")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "London"
h0 := var_Items:AddItem("Robert King")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "London"
h0 := var_Items:AddItem("Laura Callahan")
var_Items:[CellValue,h0,1] := "Inside Sales Coordinator"
var_Items:[CellValue,h0,2] := "Seattle"
h0 := var_Items:AddItem("Anne Dodsworth")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "London"
oDCOCX_Exontrol1:EndUpdate()
|
|
1050
|
While using the filter prompt is it is possible to use wild characters
local var_Columns as IColumns
local var_Items as IItems
local h0 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
oDCOCX_Exontrol1:ColumnAutoResize := true
oDCOCX_Exontrol1:ContinueColumnScroll := false
oDCOCX_Exontrol1:FocusColumnIndex := 1
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:SearchColumnIndex := 1
oDCOCX_Exontrol1:FilterBarPromptVisible := true
oDCOCX_Exontrol1:FilterBarPromptType := exFilterPromptPattern
oDCOCX_Exontrol1:FilterBarPromptPattern := "lon* seat*"
var_Columns := oDCOCX_Exontrol1:Columns
IColumn{var_Columns:Add("Name")}:Width := 96
IColumn{var_Columns:Add("Title")}:Width := 96
var_Columns:Add("City")
var_Items := oDCOCX_Exontrol1:Items
h0 := var_Items:AddItem("Nancy Davolio")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "Seattle"
h0 := var_Items:AddItem("Andrew Fuller")
var_Items:[CellValue,h0,1] := "Vice President, Sales"
var_Items:[CellValue,h0,2] := "Tacoma"
var_Items:[SelectItem,h0] := true
h0 := var_Items:AddItem("Janet Leverling")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "Kirkland"
h0 := var_Items:AddItem("Margaret Peacock")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "Redmond"
h0 := var_Items:AddItem("Steven Buchanan")
var_Items:[CellValue,h0,1] := "Sales Manager"
var_Items:[CellValue,h0,2] := "London"
h0 := var_Items:AddItem("Michael Suyama")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "London"
h0 := var_Items:AddItem("Robert King")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "London"
h0 := var_Items:AddItem("Laura Callahan")
var_Items:[CellValue,h0,1] := "Inside Sales Coordinator"
var_Items:[CellValue,h0,2] := "Seattle"
h0 := var_Items:AddItem("Anne Dodsworth")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "London"
oDCOCX_Exontrol1:EndUpdate()
|
|
1049
|
How can I list all items that contains any of specified words, not necessary at the beggining
local var_Columns as IColumns
local var_Items as IItems
local h0 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
oDCOCX_Exontrol1:ColumnAutoResize := true
oDCOCX_Exontrol1:ContinueColumnScroll := false
oDCOCX_Exontrol1:FocusColumnIndex := 1
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:SearchColumnIndex := 1
oDCOCX_Exontrol1:FilterBarPromptVisible := true
oDCOCX_Exontrol1:FilterBarPromptType := exFilterPromptStartWords | exFilterPromptContainsAny
oDCOCX_Exontrol1:FilterBarPromptPattern := "london davolio"
var_Columns := oDCOCX_Exontrol1:Columns
IColumn{var_Columns:Add("Name")}:Width := 96
IColumn{var_Columns:Add("Title")}:Width := 96
var_Columns:Add("City")
var_Items := oDCOCX_Exontrol1:Items
h0 := var_Items:AddItem("Nancy Davolio")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "Seattle"
h0 := var_Items:AddItem("Andrew Fuller")
var_Items:[CellValue,h0,1] := "Vice President, Sales"
var_Items:[CellValue,h0,2] := "Tacoma"
var_Items:[SelectItem,h0] := true
h0 := var_Items:AddItem("Janet Leverling")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "Kirkland"
h0 := var_Items:AddItem("Margaret Peacock")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "Redmond"
h0 := var_Items:AddItem("Steven Buchanan")
var_Items:[CellValue,h0,1] := "Sales Manager"
var_Items:[CellValue,h0,2] := "London"
h0 := var_Items:AddItem("Michael Suyama")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "London"
h0 := var_Items:AddItem("Robert King")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "London"
h0 := var_Items:AddItem("Laura Callahan")
var_Items:[CellValue,h0,1] := "Inside Sales Coordinator"
var_Items:[CellValue,h0,2] := "Seattle"
h0 := var_Items:AddItem("Anne Dodsworth")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "London"
oDCOCX_Exontrol1:EndUpdate()
|
|
1048
|
How can I list all items that contains any of specified words, not strings
local var_Columns as IColumns
local var_Items as IItems
local h0 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := true
oDCOCX_Exontrol1:ContinueColumnScroll := false
oDCOCX_Exontrol1:FocusColumnIndex := 1
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:SearchColumnIndex := 1
oDCOCX_Exontrol1:FilterBarPromptVisible := true
oDCOCX_Exontrol1:FilterBarPromptType := exFilterPromptWords | exFilterPromptContainsAny
oDCOCX_Exontrol1:FilterBarPromptPattern := "london nancy"
var_Columns := oDCOCX_Exontrol1:Columns
IColumn{var_Columns:Add("Name")}:Width := 96
IColumn{var_Columns:Add("Title")}:Width := 96
var_Columns:Add("City")
var_Items := oDCOCX_Exontrol1:Items
h0 := var_Items:AddItem("Nancy Davolio")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "Seattle"
h0 := var_Items:AddItem("Andrew Fuller")
var_Items:[CellValue,h0,1] := "Vice President, Sales"
var_Items:[CellValue,h0,2] := "Tacoma"
var_Items:[SelectItem,h0] := true
h0 := var_Items:AddItem("Janet Leverling")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "Kirkland"
h0 := var_Items:AddItem("Margaret Peacock")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "Redmond"
h0 := var_Items:AddItem("Steven Buchanan")
var_Items:[CellValue,h0,1] := "Sales Manager"
var_Items:[CellValue,h0,2] := "London"
h0 := var_Items:AddItem("Michael Suyama")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "London"
h0 := var_Items:AddItem("Robert King")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "London"
h0 := var_Items:AddItem("Laura Callahan")
var_Items:[CellValue,h0,1] := "Inside Sales Coordinator"
var_Items:[CellValue,h0,2] := "Seattle"
h0 := var_Items:AddItem("Anne Dodsworth")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "London"
oDCOCX_Exontrol1:EndUpdate()
|
|
1047
|
How can I list all items that contains all specified words, not strings
local var_Columns as IColumns
local var_Items as IItems
local h0 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
oDCOCX_Exontrol1:ColumnAutoResize := true
oDCOCX_Exontrol1:ContinueColumnScroll := false
oDCOCX_Exontrol1:FocusColumnIndex := 1
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:SearchColumnIndex := 1
oDCOCX_Exontrol1:FilterBarPromptVisible := true
oDCOCX_Exontrol1:FilterBarPromptType := exFilterPromptWords | exFilterPromptContainsAll
oDCOCX_Exontrol1:FilterBarPromptPattern := "london robert"
var_Columns := oDCOCX_Exontrol1:Columns
IColumn{var_Columns:Add("Name")}:Width := 96
IColumn{var_Columns:Add("Title")}:Width := 96
var_Columns:Add("City")
var_Items := oDCOCX_Exontrol1:Items
h0 := var_Items:AddItem("Nancy Davolio")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "Seattle"
h0 := var_Items:AddItem("Andrew Fuller")
var_Items:[CellValue,h0,1] := "Vice President, Sales"
var_Items:[CellValue,h0,2] := "Tacoma"
var_Items:[SelectItem,h0] := true
h0 := var_Items:AddItem("Janet Leverling")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "Kirkland"
h0 := var_Items:AddItem("Margaret Peacock")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "Redmond"
h0 := var_Items:AddItem("Steven Buchanan")
var_Items:[CellValue,h0,1] := "Sales Manager"
var_Items:[CellValue,h0,2] := "London"
h0 := var_Items:AddItem("Michael Suyama")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "London"
h0 := var_Items:AddItem("Robert King")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "London"
h0 := var_Items:AddItem("Laura Callahan")
var_Items:[CellValue,h0,1] := "Inside Sales Coordinator"
var_Items:[CellValue,h0,2] := "Seattle"
h0 := var_Items:AddItem("Anne Dodsworth")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "London"
oDCOCX_Exontrol1:EndUpdate()
|
|
1046
|
I've noticed that the filtering by prompt is not case sensitive, is is possible to make it case sensitive
local var_Columns as IColumns
local var_Items as IItems
local h0 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := true
oDCOCX_Exontrol1:ContinueColumnScroll := false
oDCOCX_Exontrol1:FocusColumnIndex := 1
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:SearchColumnIndex := 1
oDCOCX_Exontrol1:FilterBarPromptVisible := true
oDCOCX_Exontrol1:FilterBarPromptType := exFilterPromptCaseSensitive | exFilterPromptContainsAny
oDCOCX_Exontrol1:FilterBarPromptPattern := "Anne"
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
var_Columns := oDCOCX_Exontrol1:Columns
IColumn{var_Columns:Add("Name")}:Width := 96
IColumn{var_Columns:Add("Title")}:Width := 96
var_Columns:Add("City")
var_Items := oDCOCX_Exontrol1:Items
h0 := var_Items:AddItem("Nancy Davolio")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "Seattle"
h0 := var_Items:AddItem("Andrew Fuller")
var_Items:[CellValue,h0,1] := "Vice President, Sales"
var_Items:[CellValue,h0,2] := "Tacoma"
var_Items:[SelectItem,h0] := true
h0 := var_Items:AddItem("Janet Leverling")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "Kirkland"
h0 := var_Items:AddItem("Margaret Peacock")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "Redmond"
h0 := var_Items:AddItem("Steven Buchanan")
var_Items:[CellValue,h0,1] := "Sales Manager"
var_Items:[CellValue,h0,2] := "London"
h0 := var_Items:AddItem("Michael Suyama")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "London"
h0 := var_Items:AddItem("Robert King")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "London"
h0 := var_Items:AddItem("Laura Callahan")
var_Items:[CellValue,h0,1] := "Inside Sales Coordinator"
var_Items:[CellValue,h0,2] := "Seattle"
h0 := var_Items:AddItem("Anne Dodsworth")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "London"
oDCOCX_Exontrol1:EndUpdate()
|
|
1045
|
Is it possible to list only items that ends with any of specified strings
local var_Columns as IColumns
local var_Items as IItems
local h0 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := true
oDCOCX_Exontrol1:ContinueColumnScroll := false
oDCOCX_Exontrol1:FocusColumnIndex := 1
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:SearchColumnIndex := 1
oDCOCX_Exontrol1:FilterBarPromptVisible := true
oDCOCX_Exontrol1:FilterBarPromptType := exFilterPromptEndWith
oDCOCX_Exontrol1:FilterBarPromptColumns := "0"
oDCOCX_Exontrol1:FilterBarPromptPattern := "Fuller"
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
var_Columns := oDCOCX_Exontrol1:Columns
IColumn{var_Columns:Add("Name")}:Width := 96
IColumn{var_Columns:Add("Title")}:Width := 96
var_Columns:Add("City")
var_Items := oDCOCX_Exontrol1:Items
h0 := var_Items:AddItem("Nancy Davolio")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "Seattle"
h0 := var_Items:AddItem("Andrew Fuller")
var_Items:[CellValue,h0,1] := "Vice President, Sales"
var_Items:[CellValue,h0,2] := "Tacoma"
var_Items:[SelectItem,h0] := true
h0 := var_Items:AddItem("Janet Leverling")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "Kirkland"
h0 := var_Items:AddItem("Margaret Peacock")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "Redmond"
h0 := var_Items:AddItem("Steven Buchanan")
var_Items:[CellValue,h0,1] := "Sales Manager"
var_Items:[CellValue,h0,2] := "London"
h0 := var_Items:AddItem("Michael Suyama")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "London"
h0 := var_Items:AddItem("Robert King")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "London"
h0 := var_Items:AddItem("Laura Callahan")
var_Items:[CellValue,h0,1] := "Inside Sales Coordinator"
var_Items:[CellValue,h0,2] := "Seattle"
h0 := var_Items:AddItem("Anne Dodsworth")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "London"
oDCOCX_Exontrol1:EndUpdate()
|
|
1044
|
Is it possible to list only items that ends with any of specified strings
local var_Columns as IColumns
local var_Items as IItems
local h0 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := true
oDCOCX_Exontrol1:ContinueColumnScroll := false
oDCOCX_Exontrol1:FocusColumnIndex := 1
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:SearchColumnIndex := 1
oDCOCX_Exontrol1:FilterBarPromptVisible := true
oDCOCX_Exontrol1:FilterBarPromptType := exFilterPromptEndWith
oDCOCX_Exontrol1:FilterBarPromptColumns := "0"
oDCOCX_Exontrol1:FilterBarPromptPattern := "Fuller"
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
var_Columns := oDCOCX_Exontrol1:Columns
IColumn{var_Columns:Add("Name")}:Width := 96
IColumn{var_Columns:Add("Title")}:Width := 96
var_Columns:Add("City")
var_Items := oDCOCX_Exontrol1:Items
h0 := var_Items:AddItem("Nancy Davolio")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "Seattle"
h0 := var_Items:AddItem("Andrew Fuller")
var_Items:[CellValue,h0,1] := "Vice President, Sales"
var_Items:[CellValue,h0,2] := "Tacoma"
var_Items:[SelectItem,h0] := true
h0 := var_Items:AddItem("Janet Leverling")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "Kirkland"
h0 := var_Items:AddItem("Margaret Peacock")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "Redmond"
h0 := var_Items:AddItem("Steven Buchanan")
var_Items:[CellValue,h0,1] := "Sales Manager"
var_Items:[CellValue,h0,2] := "London"
h0 := var_Items:AddItem("Michael Suyama")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "London"
h0 := var_Items:AddItem("Robert King")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "London"
h0 := var_Items:AddItem("Laura Callahan")
var_Items:[CellValue,h0,1] := "Inside Sales Coordinator"
var_Items:[CellValue,h0,2] := "Seattle"
h0 := var_Items:AddItem("Anne Dodsworth")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "London"
oDCOCX_Exontrol1:EndUpdate()
|
|
1043
|
Is it possible to list only items that starts with any of specified strings
local var_Columns as IColumns
local var_Items as IItems
local h0 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := true
oDCOCX_Exontrol1:ContinueColumnScroll := false
oDCOCX_Exontrol1:FocusColumnIndex := 1
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:SearchColumnIndex := 1
oDCOCX_Exontrol1:FilterBarPromptVisible := true
oDCOCX_Exontrol1:FilterBarPromptType := exFilterPromptStartWith
oDCOCX_Exontrol1:FilterBarPromptColumns := "0"
oDCOCX_Exontrol1:FilterBarPromptPattern := "An M"
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
var_Columns := oDCOCX_Exontrol1:Columns
IColumn{var_Columns:Add("Name")}:Width := 96
IColumn{var_Columns:Add("Title")}:Width := 96
var_Columns:Add("City")
var_Items := oDCOCX_Exontrol1:Items
h0 := var_Items:AddItem("Nancy Davolio")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "Seattle"
h0 := var_Items:AddItem("Andrew Fuller")
var_Items:[CellValue,h0,1] := "Vice President, Sales"
var_Items:[CellValue,h0,2] := "Tacoma"
var_Items:[SelectItem,h0] := true
h0 := var_Items:AddItem("Janet Leverling")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "Kirkland"
h0 := var_Items:AddItem("Margaret Peacock")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "Redmond"
h0 := var_Items:AddItem("Steven Buchanan")
var_Items:[CellValue,h0,1] := "Sales Manager"
var_Items:[CellValue,h0,2] := "London"
h0 := var_Items:AddItem("Michael Suyama")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "London"
h0 := var_Items:AddItem("Robert King")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "London"
h0 := var_Items:AddItem("Laura Callahan")
var_Items:[CellValue,h0,1] := "Inside Sales Coordinator"
var_Items:[CellValue,h0,2] := "Seattle"
h0 := var_Items:AddItem("Anne Dodsworth")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "London"
oDCOCX_Exontrol1:EndUpdate()
|
|
1042
|
Is it possible to list only items that starts with specified string
local var_Columns as IColumns
local var_Items as IItems
local h0 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := true
oDCOCX_Exontrol1:ContinueColumnScroll := false
oDCOCX_Exontrol1:FocusColumnIndex := 1
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:SearchColumnIndex := 1
oDCOCX_Exontrol1:FilterBarPromptVisible := true
oDCOCX_Exontrol1:FilterBarPromptType := exFilterPromptStartWith
oDCOCX_Exontrol1:FilterBarPromptColumns := "0"
oDCOCX_Exontrol1:FilterBarPromptPattern := "A"
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
var_Columns := oDCOCX_Exontrol1:Columns
IColumn{var_Columns:Add("Name")}:Width := 96
IColumn{var_Columns:Add("Title")}:Width := 96
var_Columns:Add("City")
var_Items := oDCOCX_Exontrol1:Items
h0 := var_Items:AddItem("Nancy Davolio")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "Seattle"
h0 := var_Items:AddItem("Andrew Fuller")
var_Items:[CellValue,h0,1] := "Vice President, Sales"
var_Items:[CellValue,h0,2] := "Tacoma"
var_Items:[SelectItem,h0] := true
h0 := var_Items:AddItem("Janet Leverling")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "Kirkland"
h0 := var_Items:AddItem("Margaret Peacock")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "Redmond"
h0 := var_Items:AddItem("Steven Buchanan")
var_Items:[CellValue,h0,1] := "Sales Manager"
var_Items:[CellValue,h0,2] := "London"
h0 := var_Items:AddItem("Michael Suyama")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "London"
h0 := var_Items:AddItem("Robert King")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "London"
h0 := var_Items:AddItem("Laura Callahan")
var_Items:[CellValue,h0,1] := "Inside Sales Coordinator"
var_Items:[CellValue,h0,2] := "Seattle"
h0 := var_Items:AddItem("Anne Dodsworth")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "London"
oDCOCX_Exontrol1:EndUpdate()
|
|
1041
|
How can I specify that the list should include any of the seqeunces in the pattern
local var_Columns as IColumns
local var_Items as IItems
local h0 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := true
oDCOCX_Exontrol1:ContinueColumnScroll := false
oDCOCX_Exontrol1:FocusColumnIndex := 1
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:SearchColumnIndex := 1
oDCOCX_Exontrol1:FilterBarPromptVisible := true
oDCOCX_Exontrol1:FilterBarPromptType := exFilterPromptContainsAny
oDCOCX_Exontrol1:FilterBarPromptPattern := "london seattle"
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
var_Columns := oDCOCX_Exontrol1:Columns
IColumn{var_Columns:Add("Name")}:Width := 96
IColumn{var_Columns:Add("Title")}:Width := 96
var_Columns:Add("City")
var_Items := oDCOCX_Exontrol1:Items
h0 := var_Items:AddItem("Nancy Davolio")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "Seattle"
h0 := var_Items:AddItem("Andrew Fuller")
var_Items:[CellValue,h0,1] := "Vice President, Sales"
var_Items:[CellValue,h0,2] := "Tacoma"
var_Items:[SelectItem,h0] := true
h0 := var_Items:AddItem("Janet Leverling")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "Kirkland"
h0 := var_Items:AddItem("Margaret Peacock")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "Redmond"
h0 := var_Items:AddItem("Steven Buchanan")
var_Items:[CellValue,h0,1] := "Sales Manager"
var_Items:[CellValue,h0,2] := "London"
h0 := var_Items:AddItem("Michael Suyama")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "London"
h0 := var_Items:AddItem("Robert King")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "London"
h0 := var_Items:AddItem("Laura Callahan")
var_Items:[CellValue,h0,1] := "Inside Sales Coordinator"
var_Items:[CellValue,h0,2] := "Seattle"
h0 := var_Items:AddItem("Anne Dodsworth")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "London"
oDCOCX_Exontrol1:EndUpdate()
|
|
1040
|
How can I specify that all sequences in the filter pattern must be included in the list
local var_Columns as IColumns
local var_Items as IItems
local h0 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
oDCOCX_Exontrol1:ColumnAutoResize := true
oDCOCX_Exontrol1:ContinueColumnScroll := false
oDCOCX_Exontrol1:FocusColumnIndex := 1
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:SearchColumnIndex := 1
oDCOCX_Exontrol1:FilterBarPromptVisible := true
oDCOCX_Exontrol1:FilterBarPromptType := exFilterPromptContainsAll
oDCOCX_Exontrol1:FilterBarPromptPattern := "london manager"
var_Columns := oDCOCX_Exontrol1:Columns
IColumn{var_Columns:Add("Name")}:Width := 96
IColumn{var_Columns:Add("Title")}:Width := 96
var_Columns:Add("City")
var_Items := oDCOCX_Exontrol1:Items
h0 := var_Items:AddItem("Nancy Davolio")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "Seattle"
h0 := var_Items:AddItem("Andrew Fuller")
var_Items:[CellValue,h0,1] := "Vice President, Sales"
var_Items:[CellValue,h0,2] := "Tacoma"
var_Items:[SelectItem,h0] := true
h0 := var_Items:AddItem("Janet Leverling")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "Kirkland"
h0 := var_Items:AddItem("Margaret Peacock")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "Redmond"
h0 := var_Items:AddItem("Steven Buchanan")
var_Items:[CellValue,h0,1] := "Sales Manager"
var_Items:[CellValue,h0,2] := "London"
h0 := var_Items:AddItem("Michael Suyama")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "London"
h0 := var_Items:AddItem("Robert King")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "London"
h0 := var_Items:AddItem("Laura Callahan")
var_Items:[CellValue,h0,1] := "Inside Sales Coordinator"
var_Items:[CellValue,h0,2] := "Seattle"
h0 := var_Items:AddItem("Anne Dodsworth")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "London"
oDCOCX_Exontrol1:EndUpdate()
|
|
1039
|
How do I change at runtime the filter prompt
local var_Columns as IColumns
local var_Items as IItems
local h0 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := true
oDCOCX_Exontrol1:ContinueColumnScroll := false
oDCOCX_Exontrol1:FocusColumnIndex := 1
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:SearchColumnIndex := 1
oDCOCX_Exontrol1:FilterBarPromptVisible := true
oDCOCX_Exontrol1:FilterBarPromptPattern := "london manager"
var_Columns := oDCOCX_Exontrol1:Columns
IColumn{var_Columns:Add("Name")}:Width := 96
IColumn{var_Columns:Add("Title")}:Width := 96
var_Columns:Add("City")
var_Items := oDCOCX_Exontrol1:Items
h0 := var_Items:AddItem("Nancy Davolio")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "Seattle"
h0 := var_Items:AddItem("Andrew Fuller")
var_Items:[CellValue,h0,1] := "Vice President, Sales"
var_Items:[CellValue,h0,2] := "Tacoma"
var_Items:[SelectItem,h0] := true
h0 := var_Items:AddItem("Janet Leverling")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "Kirkland"
h0 := var_Items:AddItem("Margaret Peacock")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "Redmond"
h0 := var_Items:AddItem("Steven Buchanan")
var_Items:[CellValue,h0,1] := "Sales Manager"
var_Items:[CellValue,h0,2] := "London"
h0 := var_Items:AddItem("Michael Suyama")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "London"
h0 := var_Items:AddItem("Robert King")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "London"
h0 := var_Items:AddItem("Laura Callahan")
var_Items:[CellValue,h0,1] := "Inside Sales Coordinator"
var_Items:[CellValue,h0,2] := "Seattle"
h0 := var_Items:AddItem("Anne Dodsworth")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "London"
oDCOCX_Exontrol1:EndUpdate()
|
|
1038
|
How do I specify to filter only a single column when using the filter prompt
local var_Columns as IColumns
local var_Items as IItems
local h0 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := true
oDCOCX_Exontrol1:ContinueColumnScroll := false
oDCOCX_Exontrol1:FocusColumnIndex := 1
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:SearchColumnIndex := 1
oDCOCX_Exontrol1:FilterBarPromptVisible := true
oDCOCX_Exontrol1:FilterBarPromptColumns := "2,3"
oDCOCX_Exontrol1:FilterBarPromptPattern := "london"
var_Columns := oDCOCX_Exontrol1:Columns
IColumn{var_Columns:Add("Name")}:Width := 96
IColumn{var_Columns:Add("Title")}:Width := 96
var_Columns:Add("City")
var_Items := oDCOCX_Exontrol1:Items
h0 := var_Items:AddItem("Nancy Davolio")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "Seattle"
h0 := var_Items:AddItem("Andrew Fuller")
var_Items:[CellValue,h0,1] := "Vice President, Sales"
var_Items:[CellValue,h0,2] := "Tacoma"
var_Items:[SelectItem,h0] := true
h0 := var_Items:AddItem("Janet Leverling")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "Kirkland"
h0 := var_Items:AddItem("Margaret Peacock")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "Redmond"
h0 := var_Items:AddItem("Steven Buchanan")
var_Items:[CellValue,h0,1] := "Sales Manager"
var_Items:[CellValue,h0,2] := "London"
h0 := var_Items:AddItem("Michael Suyama")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "London"
h0 := var_Items:AddItem("Robert King")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "London"
h0 := var_Items:AddItem("Laura Callahan")
var_Items:[CellValue,h0,1] := "Inside Sales Coordinator"
var_Items:[CellValue,h0,2] := "Seattle"
h0 := var_Items:AddItem("Anne Dodsworth")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "London"
oDCOCX_Exontrol1:EndUpdate()
|
|
1037
|
How do I change the prompt or the caption being displayed in the filter bar
local var_Columns as IColumns
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
oDCOCX_Exontrol1:ColumnAutoResize := true
oDCOCX_Exontrol1:ContinueColumnScroll := false
oDCOCX_Exontrol1:FocusColumnIndex := 1
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:SearchColumnIndex := 1
oDCOCX_Exontrol1:FilterBarPromptVisible := true
oDCOCX_Exontrol1:FilterBarPrompt := "changed"
var_Columns := oDCOCX_Exontrol1:Columns
IColumn{var_Columns:Add("Name")}:Width := 96
IColumn{var_Columns:Add("Title")}:Width := 96
var_Columns:Add("City")
oDCOCX_Exontrol1:EndUpdate()
|
|
1036
|
How do I enable the filter prompt feature
local var_Columns as IColumns
local var_Items as IItems
local h0 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
oDCOCX_Exontrol1:ColumnAutoResize := true
oDCOCX_Exontrol1:ContinueColumnScroll := false
oDCOCX_Exontrol1:FocusColumnIndex := 1
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:SearchColumnIndex := 1
oDCOCX_Exontrol1:FilterBarPromptVisible := true
var_Columns := oDCOCX_Exontrol1:Columns
IColumn{var_Columns:Add("Name")}:Width := 96
IColumn{var_Columns:Add("Title")}:Width := 96
var_Columns:Add("City")
var_Items := oDCOCX_Exontrol1:Items
h0 := var_Items:AddItem("Nancy Davolio")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "Seattle"
h0 := var_Items:AddItem("Andrew Fuller")
var_Items:[CellValue,h0,1] := "Vice President, Sales"
var_Items:[CellValue,h0,2] := "Tacoma"
var_Items:[SelectItem,h0] := true
h0 := var_Items:AddItem("Janet Leverling")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "Kirkland"
h0 := var_Items:AddItem("Margaret Peacock")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "Redmond"
h0 := var_Items:AddItem("Steven Buchanan")
var_Items:[CellValue,h0,1] := "Sales Manager"
var_Items:[CellValue,h0,2] := "London"
h0 := var_Items:AddItem("Michael Suyama")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "London"
h0 := var_Items:AddItem("Robert King")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "London"
h0 := var_Items:AddItem("Laura Callahan")
var_Items:[CellValue,h0,1] := "Inside Sales Coordinator"
var_Items:[CellValue,h0,2] := "Seattle"
h0 := var_Items:AddItem("Anne Dodsworth")
var_Items:[CellValue,h0,1] := "Sales Representative"
var_Items:[CellValue,h0,2] := "London"
oDCOCX_Exontrol1:EndUpdate()
|
|
1035
|
How can I unselect all bars
local var_Items as IItems
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20010102"),SToD("20010104"),"K2",nil)
var_Items:AddBar(var_Items:AddItem("Task 3"),"Task",SToD("20010102"),SToD("20010104"),"K3",nil)
var_Items:AddBar(var_Items:AddItem("Task 4"),"Task",SToD("20010102"),SToD("20010104"),"K4",nil)
var_Items:[ItemBar,0,"<*>",exBarSelected] := true
var_Items:[ItemBar,0,"<*>",exBarSelected] := false
|
|
1034
|
Can I select bars using a pattern using wild characters as *,
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:[PaneWidth,false] := 48
var_Chart:ShowNonworkingDates := false
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Task 1")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"K1K","K1K")
var_Items:AddBar(h,"Task",SToD("20010105"),SToD("20010107"),"K2M","K2M")
var_Items:AddBar(h,"Task",SToD("20010109"),SToD("20010111"),"K3K","K3K")
var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20010102"),SToD("20010104"),"Q","Q")
var_Items:AddBar(var_Items:AddItem("Task 4"),"Task",SToD("20010102"),SToD("20010104"),"M","M")
var_Items:[ItemBar,0,"<K*K>",exBarSelected] := true
|
|
1033
|
How can I select all bars in the item with a specified key
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
oDCOCX_Exontrol1:Chart:[PaneWidth,false] := 48
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Task 1")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"K1","K1")
var_Items:AddBar(h,"Task",SToD("20010105"),SToD("20010107"),"K2","K2")
var_Items:AddBar(h,"Task",SToD("20010109"),SToD("20010111"),"P","P")
var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20010102"),SToD("20010104"),"Q","Q")
var_Items:AddBar(var_Items:AddItem("Task 4"),"Task",SToD("20010102"),SToD("20010104"),"M","M")
var_Items:[ItemBar,h,"<K*>",exBarSelected] := true
|
|
1032
|
How can I select all bars in the specified item
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
oDCOCX_Exontrol1:Chart:[PaneWidth,false] := 48
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Task 1")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"K1","K1")
var_Items:AddBar(h,"Task",SToD("20010105"),SToD("20010107"),"K2","K2")
var_Items:AddBar(h,"Task",SToD("20010109"),SToD("20010111"),"P","P")
var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20010102"),SToD("20010104"),"Q","Q")
var_Items:AddBar(var_Items:AddItem("Task 4"),"Task",SToD("20010102"),SToD("20010104"),"M","M")
var_Items:[ItemBar,h,"<*>",exBarSelected] := true
|
|
1031
|
How can I select all bars with a specified key
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
oDCOCX_Exontrol1:Chart:[PaneWidth,false] := 48
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Task 1")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"K1","K1")
var_Items:AddBar(h,"Task",SToD("20010105"),SToD("20010107"),"K2","K2")
var_Items:AddBar(h,"Task",SToD("20010108"),SToD("20010110"),"P","P")
var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20010102"),SToD("20010104"),"Q","Q")
var_Items:AddBar(var_Items:AddItem("Task 4"),"Task",SToD("20010102"),SToD("20010104"),"P","P")
var_Items:[ItemBar,0,"<P>",exBarSelected] := true
|
|
1030
|
How can I select all bars
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
oDCOCX_Exontrol1:Chart:[PaneWidth,false] := 48
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Task 1")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"K1","K1")
var_Items:AddBar(h,"Task",SToD("20010105"),SToD("20010107"),"K2","K2")
var_Items:AddBar(h,"Task",SToD("20010108"),SToD("20010110"),"P","P")
var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20010102"),SToD("20010104"),"Q","Q")
var_Items:AddBar(var_Items:AddItem("Task 4"),"Task",SToD("20010102"),SToD("20010104"),"M","M")
var_Items:[ItemBar,0,"<*>",exBarSelected] := true
|
|
1029
|
I have the AllowInsideZoom property on True, but I am still not able to use the inside zoom feature
local var_Chart as IChart
local var_InsideZoomFormat as IInsideZoomFormat
local var_Level as ILevel
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:[PaneWidth,false] := 0
var_Chart:LevelCount := 3
var_Chart:FirstWeekDay := exMonday
var_Chart:[Level,0]:Label := "Week: <%ww%>"
var_Level := var_Chart:[Level,1]
var_Level:Label := "<%dddd%>"
var_Level:Alignment := CenterAlignment
var_Chart:[Level,2]:Label := 65536
var_Chart:NonworkingHours := 16773375
var_Chart:ShowNonworkingUnits := false
var_Chart:ShowNonworkingDates := false
var_Chart:ShowNonworkingHours := false
var_Chart:AllowInsideZoom := true
var_InsideZoomFormat := var_Chart:DefaultInsideZoomFormat
var_InsideZoomFormat:InsideUnit := exMinute
var_InsideZoomFormat:InsideLabel := "<b><%nn%></b>"
var_Chart:InsideZooms:Add(SToD("20010101 10:00:00"))
oDCOCX_Exontrol1:EndUpdate()
|
|
1028
|
Is there any option to find out if two bars intersects
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DefaultItemHeight := 22
oDCOCX_Exontrol1:Columns:Add("InterectBars")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 48
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:Bars:[Item,"Task"]:OverlaidType := exOverlaidBarsOffset
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"A","A")
var_Items:AddBar(h,"Task",SToD("20010103"),SToD("20010105"),"B","B")
var_Items:[CellValue,h,0] := var_Items:[IntersectBars,h,"A",h,"B"]
h := var_Items:AddItem("")
var_Items:AddBar(h,"Task",SToD("20010106"),SToD("20010109"),"A","A")
var_Items:AddBar(h,"Task",SToD("20010110"),SToD("20010113"),"B","B")
var_Items:[CellValue,h,0] := var_Items:[IntersectBars,h,"A",h,"B"]
h := var_Items:AddItem("")
var_Items:AddBar(h,"Task",SToD("20010106"),SToD("20010109"),"B","B")
var_Items:AddBar(h,"Task",SToD("20010110"),SToD("20010113"),"A","A")
var_Items:[CellValue,h,0] := var_Items:[IntersectBars,h,"A",h,"B"]
oDCOCX_Exontrol1:EndUpdate()
|
|
1027
|
How can I find if a specified hour is a working or non-working hour, when using the ItemNonWorkingUnits
local var_Chart as IChart
local var_Items as IItems
local h,w as USUAL
oDCOCX_Exontrol1:BeginUpdate()
IColumn{oDCOCX_Exontrol1:Columns:Add("Hour")}:FormatColumn := "hour(value)"
IColumn{oDCOCX_Exontrol1:Columns:Add("Type")}:FormatColumn := "value != 0 ? 'non-working' : 'working'"
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:[PaneWidth,false] := 164
var_Chart:FirstWeekDay := exMonday
var_Chart:LevelCount := 2
var_Chart:UnitScale := exHour
var_Chart:NonworkingHours := 1
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem(SToD("20010101"))
w := oDCOCX_Exontrol1:Chart:[IsNonworkingDate,oDCOCX_Exontrol1:Items:[CellValue,h,0],nil]
var_Items:[CellValue,h,1] := w
h := var_Items:AddItem(SToD("20010101"))
var_Items:[ItemNonworkingUnits,h,false] := "hour(value) >0 "
w := oDCOCX_Exontrol1:Chart:[IsNonworkingDate,oDCOCX_Exontrol1:Items:[CellValue,h,0],h]
var_Items:[CellValue,h,1] := w
oDCOCX_Exontrol1:EndUpdate()
|
|
1026
|
How can I find if a specified hour is a working or non-working hour
local var_Chart as IChart
local var_Items as IItems
local h,w as USUAL
oDCOCX_Exontrol1:BeginUpdate()
IColumn{oDCOCX_Exontrol1:Columns:Add("Hour")}:FormatColumn := "hour(value)"
IColumn{oDCOCX_Exontrol1:Columns:Add("Type")}:FormatColumn := "value != 0 ? 'non-working' : 'working'"
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:[PaneWidth,false] := 164
var_Chart:FirstWeekDay := exMonday
var_Chart:LevelCount := 2
var_Chart:UnitScale := exHour
var_Chart:NonworkingHours := 1
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem(SToD("20010101"))
w := oDCOCX_Exontrol1:Chart:[IsNonworkingDate,oDCOCX_Exontrol1:Items:[CellValue,h,0],nil]
var_Items:[CellValue,h,1] := w
h := var_Items:AddItem(SToD("20010101 01:00:00"))
w := oDCOCX_Exontrol1:Chart:[IsNonworkingDate,oDCOCX_Exontrol1:Items:[CellValue,h,0],nil]
var_Items:[CellValue,h,1] := w
oDCOCX_Exontrol1:EndUpdate()
|
|
1025
|
How can I find if a specified date-time is a working or non-working unit, when using the ItemNonWorkingUnits
local var_Chart as IChart
local var_Items as IItems
local h,w as USUAL
oDCOCX_Exontrol1:BeginUpdate()
IColumn{oDCOCX_Exontrol1:Columns:Add("Date")}:Width := 48
IColumn{oDCOCX_Exontrol1:Columns:Add("Type")}:FormatColumn := "value != 0 ? 'non-working' : 'working'"
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:[PaneWidth,false] := 128
var_Chart:FirstWeekDay := exMonday
var_Chart:LevelCount := 2
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem(SToD("20010101"))
w := oDCOCX_Exontrol1:Chart:[IsNonworkingDate,oDCOCX_Exontrol1:Items:[CellValue,h,0],nil]
var_Items:[CellValue,h,1] := w
h := var_Items:AddItem(SToD("20010101"))
var_Items:[ItemNonworkingUnits,h,false] := "weekday(value) in (1)"
w := oDCOCX_Exontrol1:Chart:[IsNonworkingDate,oDCOCX_Exontrol1:Items:[CellValue,h,0],h]
var_Items:[CellValue,h,1] := w
oDCOCX_Exontrol1:EndUpdate()
|
|
1024
|
How can I find if a specified date-time is a working or non-working unit
local var_Chart as IChart
local var_Items as IItems
local h,w as USUAL
oDCOCX_Exontrol1:BeginUpdate()
IColumn{oDCOCX_Exontrol1:Columns:Add("Date")}:Width := 48
IColumn{oDCOCX_Exontrol1:Columns:Add("Type")}:FormatColumn := "value != 0 ? 'non-working' : 'working'"
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:[PaneWidth,false] := 128
var_Chart:FirstWeekDay := exMonday
var_Chart:LevelCount := 2
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem(SToD("20010101"))
w := oDCOCX_Exontrol1:Chart:[IsNonworkingDate,oDCOCX_Exontrol1:Items:[CellValue,h,0],nil]
var_Items:[CellValue,h,1] := w
h := var_Items:AddItem(SToD("20010106"))
w := oDCOCX_Exontrol1:Chart:[IsNonworkingDate,oDCOCX_Exontrol1:Items:[CellValue,h,0],nil]
var_Items:[CellValue,h,1] := w
oDCOCX_Exontrol1:EndUpdate()
|
|
1023
|
When zooming to days, the non-working part of the chart occupies some not useful space. Can I reduce it
local var_Chart as IChart
local var_Items as IItems
local var_Level as ILevel
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 48
var_Chart:FirstVisibleDate := SToD("20020103")
var_Chart:Bars:Add("Task:Split"):Shortcut := "Task"
var_Chart:LevelCount := 2
var_Chart:DrawGridLines := exAllLines
var_Chart:FirstWeekDay := exMonday
var_Chart:[Level,0]:Label := "Week: <%ww%>"
var_Level := var_Chart:[Level,1]
var_Level:Label := "<%d%>/<%m2%>"
var_Level:FormatLabel := "weekday(dvalue) in (0,6) ? 'end' : value"
var_Chart:UnitWidth := 32
var_Chart:UnitWidthNonworking := -32
oDCOCX_Exontrol1:Columns:Add("Task")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Default")
var_Items:AddBar(h,"Task",SToD("20020104"),SToD("20020108"),"A",nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
1022
|
My chart display only working hours, but when zooming to days, each day shows the non-working part of the day too, even if I use the ShowNonWorkingUnits property on False. What am I doing wrong
local var_Chart as IChart
local var_Items as IItems
local var_Level as ILevel
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 48
var_Chart:FirstVisibleDate := SToD("20020103 10:00:00")
var_Chart:Bars:Add("Task:Split"):Shortcut := "Task"
var_Chart:LevelCount := 2
var_Chart:DrawGridLines := exAllLines
var_Chart:FirstWeekDay := exMonday
var_Chart:[Level,0]:Label := "<%ww%>"
var_Level := var_Chart:[Level,1]
var_Level:Label := "<%dd%>"
var_Level:Unit := exHour
var_Level:Count := 24
var_Chart:NonworkingHours := 16761855
var_Chart:ShowNonworkingUnits := false
var_Chart:ShowNonworkingHours := false
var_Chart:UnitWidth := 32
oDCOCX_Exontrol1:Columns:Add("Task")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Default")
var_Items:AddBar(h,"Task",SToD("20020104 10:00:00"),SToD("20020108 02:00:00"),"A",nil)
var_Items:[ItemBar,h,"A",exBarKeepWorkingCount] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
1021
|
I need to display only working hours and weekend part, but for some items I need another non-working part. Is this possible
local var_Chart as IChart
local var_Items as IItems
local var_Level,var_Level1 as ILevel
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 48
var_Chart:FirstVisibleDate := SToD("20020103")
var_Chart:Bars:Add("Task:Split"):Shortcut := "Task"
var_Chart:LevelCount := 2
var_Chart:DrawGridLines := exAllLines
var_Level := var_Chart:[Level,0]
var_Level:Label := "<%ddd%>"
var_Level:FormatLabel := "weekday(dvalue) in (0,6) ? '' : value"
var_Level1 := var_Chart:[Level,1]
var_Level1:Label := 65536
var_Level1:FormatLabel := "weekday(dvalue) in (0,6) ? 'end' : value"
var_Chart:NonworkingHours := 16761855
var_Chart:ShowNonworkingUnits := false
var_Chart:ShowNonworkingHours := false
var_Chart:UnitWidthNonworking := -24
oDCOCX_Exontrol1:Columns:Add("Task")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Default")
var_Items:AddBar(h,"Task",SToD("20020104"),SToD("20020108"),"A",nil)
var_Items:[ItemBar,h,"A",exBarKeepWorkingCount] := true
h := var_Items:AddItem("Friday")
var_Items:AddBar(h,"Task",SToD("20020103"),SToD("20020107 12:00:00"),"A",nil)
var_Items:[ItemBar,h,"A",exBarKeepWorkingCount] := true
var_Items:[ItemNonworkingUnits,h,false] := "weekday(value) in (0,6,5) or hour(value)<10 or hour(value)>=14"
h := var_Items:AddItem("Till 13")
var_Items:AddBar(h,"Task",SToD("20020104"),SToD("20020107 12:00:00"),"A",nil)
var_Items:[ItemBar,h,"A",exBarKeepWorkingCount] := true
var_Items:[ItemNonworkingUnits,h,false] := "weekday(value) in (0,6) or hour(value)<10 or hour(value)>=13"
oDCOCX_Exontrol1:EndUpdate()
|
|
1020
|
I can display the working hours, but how can I hide the weekend or non-working part of the chart when using the ShowNonWorkingUnits property on False
local var_Chart as IChart
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 0
var_Chart:FirstVisibleDate := SToD("20020103")
var_Chart:LevelCount := 2
var_Chart:[Level,0]:Label := "<%ddd%>"
var_Chart:[Level,1]:Label := 65536
var_Chart:NonworkingHours := 16761855
var_Chart:ShowNonworkingUnits := false
var_Chart:ShowNonworkingDates := false
var_Chart:ShowNonworkingHours := false
|
|
1019
|
How can I display only the working hours but uses less space for non-working part, such as weekend
local var_Chart as IChart
local var_Level,var_Level1 as ILevel
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 0
var_Chart:FirstVisibleDate := SToD("20020103")
var_Chart:LevelCount := 2
var_Level := var_Chart:[Level,0]
var_Level:Label := "<%ddd%>"
var_Level:FormatLabel := "weekday(dvalue) in (0,6) ? '' : value"
var_Level1 := var_Chart:[Level,1]
var_Level1:Label := 65536
var_Level1:FormatLabel := "weekday(dvalue) in (0,6) ? 'end' : value"
var_Chart:NonworkingHours := 16761855
var_Chart:ShowNonworkingUnits := false
var_Chart:ShowNonworkingHours := false
var_Chart:UnitWidthNonworking := -24
|
|
1018
|
How can I display only the working hours but uses less space for non-working part, such as weekend
local var_Chart as IChart
local var_Level as ILevel
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 0
var_Chart:FirstVisibleDate := SToD("20020103")
var_Chart:LevelCount := 2
var_Chart:[Level,0]:Label := "<%ddd%>"
var_Level := var_Chart:[Level,1]
var_Level:Label := 65536
var_Level:FormatLabel := "weekday(dvalue) in (0,6) ? '' : value"
var_Chart:NonworkingHours := 16761855
var_Chart:ShowNonworkingUnits := false
var_Chart:ShowNonworkingHours := false
var_Chart:UnitWidthNonworking := 8
|
|
1017
|
How can I display only the working hours
local var_Chart as IChart
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 0
var_Chart:FirstVisibleDate := SToD("20020103")
var_Chart:LevelCount := 2
var_Chart:[Level,0]:Label := "<%ddd%>"
var_Chart:[Level,1]:Label := 65536
var_Chart:NonworkingHours := 16761855
var_Chart:ShowNonworkingUnits := false
var_Chart:ShowNonworkingHours := false
|
|
1016
|
How can I specify non-working hours
local var_Chart as IChart
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 0
var_Chart:FirstVisibleDate := SToD("20020103")
var_Chart:LevelCount := 2
var_Chart:[Level,0]:Label := "<%ddd%>"
var_Chart:[Level,1]:Label := 65536
var_Chart:NonworkingHours := 16761855
|
|
1015
|
How can I display the working hours for a bar
local var_Chart as IChart
local var_Column as IColumn
local var_Columns as IColumns
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("Tasks")
var_Column := IColumn{var_Columns:Add("Working")}
var_Column:[Def,exCellValueToItemBarProperty] := 258
var_Column:[Def,exCellValueToItemBarKey] := "A"
var_Column:FormatColumn := "(0:=round(value*24)) != 0 ? =:0 : ''"
oDCOCX_Exontrol1:Items:AllowCellValueToItemBar := true
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 96
var_Chart:Bars:Add("Task:Split"):Shortcut := "Task"
var_Chart:FirstVisibleDate := SToD("20020103")
var_Chart:LevelCount := 2
var_Chart:[Level,0]:Label := "<%ddd%>"
var_Chart:[Level,1]:Label := "<%hh%>"
var_Chart:NonworkingHours := 16761855
var_Chart:ShowNonworkingUnits := false
var_Chart:ShowNonworkingHours := false
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Task 1")
var_Items:AddBar(h,"Task",SToD("20020104"),SToD("20020108"),"A",nil)
var_Items:[ItemBar,h,"A",exBarKeepWorkingCount] := true
h := var_Items:AddItem("Task 2")
var_Items:AddBar(h,"Task",SToD("20020103"),SToD("20020104"),"A",nil)
var_Items:[ItemBar,h,"A",exBarKeepWorkingCount] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
1014
|
Is it possible to show only working hours, showing a small part for the weekend days, and in the same time showing the bars by splitting the non-working part and keeping the working units for the bar while moving
local var_Chart as IChart
local var_Items as IItems
local var_Level,var_Level1 as ILevel
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:Bars:Add("Task:Split"):Shortcut := "Task"
var_Chart:FirstVisibleDate := SToD("20020103")
var_Chart:DrawGridLines := exAllLines
var_Chart:GridLineStyle := exGridLinesGeometric
var_Chart:[PaneWidth,false] := 0
var_Chart:LevelCount := 2
var_Level := var_Chart:[Level,0]
var_Level:Label := "<%ddd%>"
var_Level:Alignment := CenterAlignment
var_Level:FormatLabel := "weekday(dvalue) in (0,6) ? `` : value"
var_Level1 := var_Chart:[Level,1]
var_Level1:Label := 65536
var_Level1:DrawGridLines := true
var_Level1:FormatLabel := "weekday(dvalue) in (0,6) ? `<font ;6>weekend</font>` : value"
var_Chart:NonworkingHours := 16761855
var_Chart:ShowNonworkingUnits := false
var_Chart:ShowNonworkingDates := true
var_Chart:ShowNonworkingHours := false
var_Chart:UnitWidthNonworking := -40
oDCOCX_Exontrol1:Columns:Add("Task")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Task 1")
var_Items:AddBar(h,"Task",SToD("20020104"),SToD("20020108"),"A",nil)
var_Items:[ItemBar,h,"A",exBarKeepWorkingCount] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
1013
|
How can I show bars with different solid color but black border
local var_Bar as IBar
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:VisualAppearance:Add(1,"C:\Program Files\Exontrol\ExG2antt.NET\sample\EBN\blackbox.ebn")
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
var_Bar := oDCOCX_Exontrol1:Chart:Bars:[Item,"Task"]
var_Bar:Color := 0x1000000
var_Bar:Height := 15
oDCOCX_Exontrol1:Chart:[PaneWidth,false] := 0
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Task")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010105"),"",nil)
var_Items:[ItemBar,h,"",exBarColor] := 65535
h := var_Items:AddItem("Task")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010105"),"",nil)
var_Items:[ItemBar,h,"",exBarColor] := 255
oDCOCX_Exontrol1:EndUpdate()
|
|
1012
|
I want to display a vertical line for each week, while I still need a vertical separator for each day. Is this possible
local var_Chart as IChart
local var_Level,var_Level1 as ILevel
oDCOCX_Exontrol1:GridLineColor := RGB(240,240,240)
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 0
var_Chart:DrawGridLines := exAllLines
var_Chart:NonworkingDays := 0
var_Chart:LevelCount := 2
var_Level := var_Chart:[Level,0]
var_Level:DrawGridLines := true
var_Level:GridLineColor := RGB(0,0,0)
var_Level1 := var_Chart:[Level,1]
var_Level1:DrawGridLines := true
var_Level1:GridLineColor := RGB(240,240,240)
|
|
1011
|
How can I display the levels as year, day, AM and PM for each day
local var_Chart as IChart
local var_Level as ILevel
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 0
var_Chart:FirstVisibleDate := SToD("20091201")
var_Chart:UnitWidth := 22
var_Chart:LevelCount := 3
var_Chart:[Level,0]:Label := "<%yyyy%>"
var_Chart:[Level,1]:Label := "<%mm%>/<%dd%>"
var_Level := var_Chart:[Level,2]
var_Level:Label := "<%AM/PM%>"
var_Level:Count := 12
|
|
1010
|
How can I change the pattern for a specified time unit, in the chart area
local var_Chart as IChart
local var_InsideZoomFormat as IInsideZoomFormat
local var_InsideZooms as IInsideZooms
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 0
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20080101")
var_Chart:AllowInsideZoom := true
var_Chart:AllowResizeInsideZoom := false
var_Chart:InsideZoomOnDblClick := false
var_InsideZoomFormat := var_Chart:DefaultInsideZoomFormat
var_InsideZoomFormat:PatternChart := exPatternBDiagonal
var_InsideZoomFormat:PatternColorChart := RGB(255,0,0)
var_InsideZooms := var_Chart:InsideZooms
var_InsideZooms:SplitBaseLevel := false
var_InsideZooms:DefaultWidth := 18
var_InsideZooms:Add(SToD("20080104")):AllowInsideFormat := false
oDCOCX_Exontrol1:EndUpdate()
|
|
1009
|
How can I hide the non-working hours, but still display the non-working days with even less space
local var_Chart as IChart
local var_Level,var_Level1 as ILevel
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20091119")
var_Chart:DrawGridLines := exAllLines
var_Chart:GridLineStyle := exGridLinesGeometric
var_Chart:[PaneWidth,false] := 0
var_Chart:LevelCount := 2
var_Level := var_Chart:[Level,0]
var_Level:Label := "<%dddd%>"
var_Level:Alignment := CenterAlignment
var_Level:FormatLabel := "weekday(dvalue) in (0,6) ? `` : value"
var_Level1 := var_Chart:[Level,1]
var_Level1:Label := 65536
var_Level1:DrawGridLines := true
var_Level1:FormatLabel := "weekday(dvalue) in (0,6) ? `<font ;6>weekend</font>` : value"
var_Chart:NonworkingHours := 16761855
var_Chart:ShowNonworkingUnits := false
var_Chart:ShowNonworkingDates := true
var_Chart:ShowNonworkingHours := false
var_Chart:UnitWidth := 32
var_Chart:UnitWidthNonworking := -32
oDCOCX_Exontrol1:EndUpdate()
|
|
1008
|
How can I hide the non-working hours, but still display the non-working days with less space
local var_Chart as IChart
local var_Level,var_Level1 as ILevel
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20091119")
var_Chart:DrawGridLines := exAllLines
var_Chart:GridLineStyle := exGridLinesGeometric
var_Chart:[PaneWidth,false] := 0
var_Chart:LevelCount := 2
var_Level := var_Chart:[Level,0]
var_Level:Label := "<%dddd%>"
var_Level:Alignment := CenterAlignment
var_Level:FormatLabel := "weekday(dvalue) in (0,6) ? `<font ;6>` + value + `</font>` : value"
var_Level1 := var_Chart:[Level,1]
var_Level1:Label := 65536
var_Level1:DrawGridLines := true
var_Level1:FormatLabel := "weekday(dvalue) in (0,6) ? `<font ;6>` + value + `</font>` : value"
var_Chart:NonworkingHours := 16761855
var_Chart:ShowNonworkingUnits := false
var_Chart:ShowNonworkingDates := true
var_Chart:ShowNonworkingHours := false
var_Chart:UnitWidth := 32
var_Chart:UnitWidthNonworking := 12
oDCOCX_Exontrol1:EndUpdate()
|
|
1007
|
How can I hide the non-working hours, but still display the non-working days
local var_Chart as IChart
local var_Level,var_Level1 as ILevel
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20091119")
var_Chart:DrawGridLines := exAllLines
var_Chart:GridLineStyle := exGridLinesGeometric
var_Chart:[PaneWidth,false] := 0
var_Chart:LevelCount := 2
var_Level := var_Chart:[Level,0]
var_Level:Label := "<%dddd%>"
var_Level:Alignment := CenterAlignment
var_Level1 := var_Chart:[Level,1]
var_Level1:Label := 65536
var_Level1:DrawGridLines := true
var_Chart:NonworkingHours := 16761855
var_Chart:ShowNonworkingUnits := false
var_Chart:ShowNonworkingDates := true
var_Chart:ShowNonworkingHours := false
oDCOCX_Exontrol1:EndUpdate()
|
|
1006
|
How can I hide the non-working hours, and the non-working days
local var_Chart as IChart
local var_Level,var_Level1 as ILevel
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20091119")
var_Chart:DrawGridLines := exAllLines
var_Chart:GridLineStyle := exGridLinesGeometric
var_Chart:[PaneWidth,false] := 0
var_Chart:LevelCount := 2
var_Level := var_Chart:[Level,0]
var_Level:Label := "<%dddd%>"
var_Level:Alignment := CenterAlignment
var_Level1 := var_Chart:[Level,1]
var_Level1:Label := 65536
var_Level1:DrawGridLines := true
var_Chart:NonworkingHours := 16761855
var_Chart:ShowNonworkingUnits := false
var_Chart:ShowNonworkingDates := false
var_Chart:ShowNonworkingHours := false
oDCOCX_Exontrol1:EndUpdate()
|
|
1005
|
Can I highlights the non-working hours while my chart shows days
local var_Chart as IChart
local var_Level as ILevel
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 0
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:UnitWidth := 48
var_Chart:LevelCount := 2
var_Level := var_Chart:[Level,1]
var_Level:Label := "<%d%>"
var_Level:Unit := exHour
var_Level:Count := 24
var_Chart:NonworkingHours := 127
|
|
1004
|
How can I reduce the space/area being occupied by non-working units days or hours (method 2)
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstWeekDay := exMonday
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:[PaneWidth,false] := 64
var_Chart:UnitWidthNonworking := -8
var_Chart:[Level,1]:FormatLabel := "weekday(dvalue) in (0,6) ? '.' : value"
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Task 1")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
var_Items:AddBar(h,"Task",SToD("20010105"),SToD("20010106"),"K2",nil)
var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20010102"),SToD("20010104"),"K3",nil)
var_Items:AddBar(var_Items:AddItem("Task 4"),"Task",SToD("20010102"),SToD("20010104"),"K4",nil)
var_Items:[ItemBar,h,"<*>",exBarColor] := 255
oDCOCX_Exontrol1:EndUpdate()
|
|
1003
|
How can I reduce the space/area being occupied by non-working units days or hours (method 1)
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstWeekDay := exMonday
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:[PaneWidth,false] := 64
var_Chart:UnitWidthNonworking := 4
var_Chart:[Level,1]:FormatLabel := "weekday(dvalue) in (0,6) ? '' : value"
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Task 1")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
var_Items:AddBar(h,"Task",SToD("20010105"),SToD("20010106"),"K2",nil)
var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20010102"),SToD("20010104"),"K3",nil)
var_Items:AddBar(var_Items:AddItem("Task 4"),"Task",SToD("20010102"),SToD("20010104"),"K4",nil)
var_Items:[ItemBar,h,"<*>",exBarColor] := 255
oDCOCX_Exontrol1:EndUpdate()
|
|
1002
|
How can I hide the non-working units
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstWeekDay := exMonday
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:[PaneWidth,false] := 64
var_Chart:ShowNonworkingUnits := false
var_Chart:ShowNonworkingDates := false
var_Chart:DrawGridLines := exVLines
var_Chart:[Level,0]:DrawGridLines := true
var_Chart:GridLineStyle := exGridLinesGeometric
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Task 1")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
var_Items:AddBar(h,"Task",SToD("20010105"),SToD("20010106"),"K2",nil)
var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20010102"),SToD("20010104"),"K3",nil)
var_Items:AddBar(var_Items:AddItem("Task 4"),"Task",SToD("20010102"),SToD("20010104"),"K4",nil)
var_Items:[ItemBar,h,"<*>",exBarColor] := 255
oDCOCX_Exontrol1:EndUpdate()
|
|
1001
|
How can I determine that a certain bar is the topmost (zorder)
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 48
var_Chart:FirstVisibleDate := SToD("20001227")
var_Chart:Bars:[Item,"Task"]:Pattern := exPatternSolid
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("B in front")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010106"),"A",nil)
var_Items:AddBar(h,"Task",SToD("20010103"),SToD("20010105"),"B","<fgcolor=FF0000>B</fgcolor>")
var_Items:[ItemBar,h,"B",exBarOffset] := -2
var_Items:[ItemBar,h,"B",exBarHAlignCaption] := 18
var_Items:[ItemBar,h,"B",exBarColor] := 255
h := var_Items:AddItem("A in back")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010106"),"A","<fgcolor=FF0000>A</fgcolor>")
var_Items:[ItemBar,h,"A",exBarOffset] := -2
var_Items:[ItemBar,h,"A",exBarHAlignCaption] := 18
var_Items:[ItemBar,h,"A",exBarColor] := 255
var_Items:AddBar(h,"Task",SToD("20010103"),SToD("20010105"),"B",nil)
oDCOCX_Exontrol1:EndUpdate()
|